Question

Напишите программу, которая вводит возраст человека (целое число, не превышающее 120) и выводит этот возраст со словом "год" "года" или "лет". Например "21 год" "22 года" "25 лет"

Answer 1

Program years;
year:integer;
begin
readln(year);
if(year >0) and(year<=120) then begin
if(year mod 10 =0)or(year mod 10 >=5) then writeln(year, ' лет ')
else if(year mod 10 =1)then writeln(year, ' год ')
else writeln(year, ' года ');
end;
end.