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

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.