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

Program vozrast;
Var
n:integer;
Begin
readln(n); Считывание с клавиатуры числа n
if (ngt;=5) and (nlt;=20) Если число gt;=5 и lt;= 20
then writeln(n, лет)      вывести число и лет
else Инче, т. е. если условие не производится
begin
if n mod 10=1 then writeln(n, год); Если число кончается на 1 вывести год
if (n mod 10gt;=2) and (n mod 10lt;=4) then writeln(n, года); На 2 - 4 вывести года
if (n mod 10gt;4) or (n mod 10=0) then writeln(n, лет); На 4-9 или 0 вывести лет
end;
end.