Program case_4-
Var k:integer-
Begin
Writeln(‘Введите возраст’)-
Readln(k)-
Case — k mod 10 of
1:Writeln(‘Мне ‘,k,’ год’)-
2..4:Writeln(‘Мне ‘,k,’ года’)-
0,5..9:Writeln (‘Мне ‘,k,’лет’)-
Else Writeln(‘такого возраста не существует’)-
end-
Readln-
End.