1. Массив А — рост 22 учеников класса, заполнен
случайным значение от [150;180]. Найти количество
учеников, чей рост меньше значения N.
2. Массив В(10) заполнен с клавиатуры. Найти сумму
четных элементов,
3. Массив А(7) заполнен случайными числами (5:20]
Найти произведения элементов больших 10
begin
writeln('Введите год рождения'); readln(a);
case a mod 12 of
0: writeln('Вы родились в год Обезьяны.');
1: writeln('Вы родились в год Петуха.');
2: writeln('Вы родились в год Собаки.');
3: writeln('Вы родились в год Свиньи.');
4: writeln('Вы родились в год Крысы.');
5: writeln('Вы родились в год Быка.');
6: writeln('Вы родились в год Тигра.');
7: writeln('Вы родились в год Кролика.');
8: writeln('Вы родились в год Дракона.');
9: writeln('Вы родились в год Змеи.');
10: writeln('Вы родились в год Лошади.');
11: writeln('Вы родились в год Козы.');
end;
readln
end.