Написать программу для Паскаль через оператор Case. Для целого числа K от 1 до 99 напечаать фразу "мне K лет", учитывая при этом что при вводе некоторых значений 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;

begin

clrscr;

repeat

write ('Введите возраст от 1 до 99 k=');

readln (k);

until k in [1 ... 99];

case k of

11 ... 14:write ('Мне ', k,' лет');

else

case k mod 10 of

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

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

else write ('Мне ', k,' лет');

end;

end;

readln

end.