нужно составить программу на паскаль которая запрашивает имя пользователя,год его рождения и поздравляет с днём рождения

var x,y:string;begin writeln('Как вас зовут?');readln(x);writeln('Когда вы роделись?');readln(y);writeln ('С днем рождения ',x);end.

var s:string;i:integer;beginwriteln('Введите ваше имя');readln(s);writeln('Введите год вашего рождения');readln(i);writeln(s,', поздравляю с днём рождением, вам исполнилось ',2014-i,' лет');end.