Напишите программу на языке Паскаля для задачи: Ввести возраст человека (от 1 до 150) и ввести его вместе с последующими словами "год" года" "лет". Пример: Введите возраст: 24 Вам 24 года.

Для выбора варианта из набора "год", "года", "лет" используется оператор case.

program age;

var n, k: integer;

s: string;

begin

write ('Введите возраст: ');

readln (n);

k: = n mod 10;

case k of

1: s:='год';

2,3,4: s:='года';

5,6,7,8,9,0: s:='лет'

end;

writeln ('Вам ', n,' ', s)

end.