Создать программу.
Которая при вводе возраста человека от 1 до 100 лет выводит на экран этот возраст с последующим словом "год" или "года" или "лет"

Var i,j: integer;
begin
readln(i);
j:=i mod 10;
if j=1 then writeln (i, год)
 else   if (j=2) or (j=3) or (j=4)
then writeln (i, года)
 else writeln (i, лет)
end.