Дано натуральное число n (1n1188), определяющее возраст человека (в месяцах). Выразить возраст в годах и месяцах. Например, 21 год 10 месяцев, 52 года 1 месяц, 46 лет равно и т.д.

Program saidim; uses crt; var  m:integer; begin   writeln('******************************');   writeln('**   Переводилка возраста   **');   writeln('******************************');   writeln();   writeln('Введите возраст в месяцах');   readln(m);   writeln('*** alphaues is thinking... ***');   writeln();  // writeln('Возраст равен ',m div 12,' лет ',m mod 12,' месяцев');   write('Возраст равен ',m div 12);   case ((m div 12) mod 10) of     1:  write(' год ');     2,3,4:  write(' годa ');     else   write(' лет ');   end;   case (m mod 12) of     0:  writeln(' ровно ');     1:  writeln(m mod 12,' месяц ');     2,3,4:  writeln(m mod 12,' месяцa ');     else   writeln(m mod 12,' месяцев ');   end; end.