Составьте диалог пользователя с компьютером на произвольную тему. Например, машина задает два вопроса “Как тебя зовут?” и “Сколько тебе лет?”; после введения имени (Антон) и числа (15) выводит на экран “Да... Через 50 лет тебе ...

Program R; uses crt; Var a, c, d, l, k: String[50]; b: integer; Begin Writeln('Привет!'); Writeln('Давай познакомимся! Как тебя зовут?'); Readln(a); Writeln('Очень приятно, ',a,'! ','А меня зовут Евгений.'); Writeln('Сколько тебе лет?'); Readln(b); if (a = 'Антон' and b=15) then Writeln('Да... Через 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.