Question

ввести возраст человека от 1 до 150 лет и вывести его вместе с последующим словом (год, года или лет).

Answer 1

var age:byte;
begin
read(age);
age:=age mod 10;
case age of
0,5,6,7,8,9: write('лет');
1: write('год');
2,3,4: write('года');
end; 
end.