Дано натуральное число n (n<=100), определяющее в годах возраст человека. Составить программу, по которой на экран монитора выводится это число с наименованием "год", "года" или "лет".

Program vozrast;

Var

n:integer;

Begin

readln (n); {Считывание с клавиатуры числа n}

if (n>=5) and (n=5 и < = 20

then writeln (n,' лет') вывести число и 'лет'}

else {Инче, т. е. если условие не выполняется}

begin

if n mod 10=1 then writeln (n,' год'); {Если число заканчивается на 1 вывести 'год'}

if (n mod 10>=2) and (n mod 10<=4) then writeln (n,' года'); {На 2 - 4 вывести 'года'}

if (n mod 10>4) or (n mod 10=0) then writeln (n,' лет'); {На 4-9 или 0 вывести 'лет'}

end;

end.