.Помогите.....Задача ** паскаль. Известны год и номер месяца рождения человека, а также...

Question

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

Answer 1

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