.Помогите.....Задача на паскаль. Известны год и номер месяца рождения человека, а также год и номер
месяца сегодняшнего дня. определить возраст человека и число полных месяцев. при определении разность между номером месяцев. например, если месяц рождения февраля, а текущий месяц май, то число полных месяцев равно трем независимим от дня рождения и сегоднешнего дня....

var  m, y, mr, yr, mf, yf: integer;begin  write('введите месяц и год рождения: ');  readln(mr, yr);  write('введите месяц и год расчета: ');  readln(m, y);  yf := y - yr;  mf := m - mr;  if mf < 1 then  begin    yf := yf - 1;    mf := mf + 12  end;  writeln('Прожито лет- ', yf, ', месяцев- ', mf)end.Тестовое решение:введите месяц и год рождения: 8 1976введите месяц и год расчета: 3 2014Прожито лет- 37, месяцев- 7