Дано натуральное число 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.