С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n ≥ 1)

//С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n >= 1).
//Определить название месяца (январь, февраль и т. п.) этого дня.
program blablabla;
var
   conot,nhot,vg,g,m,n:integer;
begin
   conot:=0;
   cls;
   write('Введте колличество пройденных месяцев ');read(n);
   vg:=1988;
   nhot:=1990;
   g:=n div 12;
   m:=n mod 12;
   conot:=nhot+g;
   if ((conot-vg)mod 4)=0 then
   writeln('Год высокосный ');
   writeln('Прошло лет ',g);
   writeln('Текущий месяц в году ',m);
   writeln('Стал год ',conot);
   case m of
      0:writeln('Январь ');
      1:writeln('Февраль ');
      2:writeln('Март ');
      3:writeln('Апрель ');
      4:writeln('Май ');
      5:writeln('Июнь ');
      6:writeln('Июль ');
      7:writeln('Август ');
      8:writeln('Сентябрь ');
      9:writeln('Октябрь ');
      10:writeln('Ноябрь ');
      11:writeln('Декабрь ');
   end;
end.