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.