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

Var
n,b: integer;
begin
writeln ('vvel n');
read (n);
b:= n mod 10;
if b=1 then writeln (n,'god');
if (b>1) and (b<5) then writeln (n,'goda')
else
writeln  (n,'let');
end.