Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь – 1 и т.д.). Определить возраст человека (число полных лет). В случае совпадения указанных месяцев считать, что прошел весь год. Паскаль.

Учитесь, любители)
program prosto tak;
uses crt;
var
x, y, a, b, i, k:integer;
begin
readln(x, y);
readln(a,b);
k:=0;
k:=a-x;
if (b>y) or (b=y) then k:=k+1;
writeln(k);
readln;
end.
должно заработать