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

Var a:string;

b, c:integer;

beginwriteln ('Привет, как тебя зовут?') ;

readln (a) ;

writeln (a, ', cколько тебе лет?') ;

readln (b) ;

writeln (a, ', и тебе ', b, 'лет, в каком году ты родился?') ;

readln (c) ;

writeln (c, ', хорошо!') ;

writeln ('Мне пора идти, пока ', a, '!') ;

end.