Напишите пожалуйста программу для Паскаля АВС!!! Заранее спасибо :3
Известен возраст (целое число от 1 до 99). В зависимости от возраста вывести на экран фразу:
«Мне … лет»
«Мне …года»
«Мне …. Год»
подсказка: Воспользуйтесь функцией mod (искать в справочных материалах)

ты уверен, что правильно?

я проверила и у меня вообще ничего не работало

Я тоже проверял и у меня все работало.

Var A : Byte;Begin  Readln(A);  Write('Мне ',A,' ');  Case A mod 10 of    0,5..9 : Writeln('лет');    2..4   : Writeln('года');    1      : Writeln('год');  end;end.