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

Предыдущий
вопрос Следующий
вопрос

program Age;

var
age: integer;
begin
writeln('Введите возраст:');
readln(age);

if (age mod 10 = 1) and (age <> 11) then
writeln('Вам ', age, ' год.');
else if (age mod 10 = 2) or (age mod 10 = 3) or (age mod 10 = 4) then
writeln('Вам ', age, ' года.');
else
writeln('Вам ', age, ' лет.');
end.