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

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   begin
    yf := yf - 1;
    mf := mf + 12
  end;
  writeln(Прожито лет- , yf, , месяцев- , mf)
end.

Тестовое решение:

введите месяц и год рождения: 8 1976
введите месяц и год расчета: 3 2014
Прожито лет- 37, месяцев- 7