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

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

program age;var k:integer;

begink:= 1;

while k > 0 dobeginwrite(\'Введите возраст в годах \');readln(k);

case (k mod 10) of1: writeln(\'Мне \', k, \' год\');2..4: writeln(\'Мне \', k, \' года\');5..9: writeln(\'Мне \', k, \' лет\');0: writeln(\'Мне \', k, \' лет\');end;

writeln()endend.