Составьте диалог пользователя с компьютером на произвольную тему

Program R; uses crt; Var a, c, d, l, k: String[50]; b: integer; BeginWriteln ('Привет! '); Writeln ('Давай познакомимся! Как тебя зовут? '); Readln (a); Writeln ('Очень приятно, ',a,'! ','А меня зовут Евгений.'); Writeln ('Сколько тебе лет? '); Readln (b); if (a='Антон' and b=15) thenWriteln ('Да… Через 50 лет тебе уже будет 65 лет, а звать тебя будут не Антон, а дед Антон'); Writeln ('Мне тоже,' b, '! '); Writeln ('Какую музыку ты любишь слушать? '); Readln (c); Writeln ('Ничего себе! Да у нас похожие вкусы! Ведь я тоже люблю слушать ', c); Writeln ('Какое время года ты любишь? '); Readln (d); Writeln ('Я тоже обожаю ',d); Writeln ('Какой твой любимый цвет? '); Readln (l); Writeln ('Мне кажется, мы во многом похожи… Это и мой любимый цвет.'); Writeln ('Кто ты по знаку зодиака? '); Readln (k); Writeln ('Надо же! Я тоже ',k,'.'); Writeln ('Было очень приятно познакомиться и поговорить,' a,'! Пока! '); End.