Дано натуральное число k. Написать программу, которая по введенному числу k от 1 до 99 напишет фразу: ("Мне, k, лет")

Для выхода из программы нужно по запросу о возрасте ввести 0.

program age;

var k:integer;

begin

k: = 1;

while k > 0 do

begin

write ('Введите возраст в годах ');

readln (k);

case (k mod 10) of

1: writeln ('Мне ', k, ' год');

2 ... 4: writeln ('Мне ', k, ' года');

5 ... 9: writeln ('Мне ', k, ' лет');

0: writeln ('Мне ', k, ' лет');

end;

writeln ()

end

end.