Написать программу для Паскаль через оператор Case. Для целого числа K от 1 до 99 напечаать фразу "мне K лет", учитывая

var i,n :integer;begin n:=99; for i:=1 to n do begin case i of 11..14 :writeln(\'мне \',i,\' лет\'); else case i mod 10 of 1:writeln(\'мне \',i,\' год\'); 2..4:writeln(\'мне \',i,\' года\'); else writeln(\'мне \',i,\' лет\'); end; end; end;end.Второй вариант:uses crt;var k:byte;beginclrscr;repeatwrite(\'Введите возраст от 1 до 99 k=\');readln(k);until k in [1..99];case k of11..14:write(\'Мне \',k,\' лет\');else case k mod 10 of 1:write(\'Мне \',k,\' год\'); 2..4:write(\'Мне \',k,\' года\'); else write(\'Мне \',k,\' лет\'); end;end;readlnend.