Запросите имя пользователя и его возраст определите год рождения вывести его ** экран и...

Question

Запросите имя пользователя и его возраст определите год рождения вывести его на экран и попрощайся по имени(паскаль ABC)

Answer 1

Var a:string;
b,c:integer;
beginwriteln('Привет, как тебя зовут?');
readln(a);
writeln(a, ', cколько тебе лет?');
readln(b);
writeln(a, ', и тебе ', b, 'лет, в каком году ты родился?');
readln(c);
writeln(c, ', хорошо!');
writeln('Мне пора идти, пока ', a, '!');
end.