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

Для выбора варианта из набора «год», «года», «лет» используется оператор 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.