1. Напишите программу, запрашивающую ваш год рождения, год рождения вашей мамы и печатающую, во сколько лет мама вас родила. 2. Напишите дружественную по отношению к пользователю программу. Пусть она обращается к вам по имени, а затем предложит последовательно ввести прилагательное, сущ., наречие и глагол, чтобы в результате вывести на экран несложную фразу с использованием введённых слов.

program zz1;

var a, b, c:integer; / / задаем переменные целого типа

begin

write (' введите ваш год рождения '); / / вводим с клавиатуры число

read (a);

write (' введите год рождения вашей мамы '); / / вводим с клавиатуры число

read (b);

write (' Вас мама родила в ', a-b, ' лет '); / /выводим ответ

end.

2. program zz1;

var a, b, c, d, e:string; / / задаем переменные строкового типа

begin

writeln (' введите ваше имя '); / / вводим с клавиатуры имя

readln (a);

writeln (a,' введите прилагательное '); / / вводим с клавиатуры прилагательное

readln (b);

writeln (' введите существительное '); / / вводим с клавиатуры существительное

readln (c);

writeln (' введите наречие '); / / вводим с клавиатуры наречие

readln (d);

writeln (' введите глагол '); / / вводим с клавиатуры глагол

readln (e);

writeln (' полученная фраза ', b,' ', c,' ', d,' ', e); / /выводим ответ

end.