Напишите пожалуйста программу для Паскаля АВС!!! Заранее спасибо :3 Известен возраст...

Question

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

Answer 1

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

Comments

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

---

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

---

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