Помогите плиз!!!!Дано целое число n (1 ≤ n ≤ 99), определяющее возраст человека (в...

Question

Помогите плиз!!!!
Дано целое число n (1 ≤ n ≤ 99), определяющее возраст человека (в годах). Для этого числа напечатать фразу «мне n лет», учитывая при этом, что при некоторых значениях n слово «лет» надо заменить на слово «год» или «года».
завтра пробный ГИА, помогите плиииз!!!

Answer 1

Var
n:integer;
begin
readln(n);
if (n mod 10>=5)or(n mod 10=0) then
writeln('мне ',n,'  лет');
if n mod 10=1 then 
writeln('мне ',n,'  год');
if (n mod 10>1)and(n mod 10<5) then <br>writeln('мне ',n,'  года');
end.