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

var
d3,m3,y3:integer;
d1,m1,y1:integer;
d2,m2,y2:integer;
k:integer;
begin
repeat
readln(d1,m1,y1);
if m1=2 then k:=28;
if (m1=4) or (m1=6) or (m1=9) then k:=30;
if (m1=1) or (m1=3) or (m1=5) or (m1=7) or (m1=8) or (m1=10) or (m1=11) or (m1=12) then k:=31;
until (d1>=1) and (d1<=k) and (m1>=1) and (m1<=12);
repeat
readln(d2,m2,y2);
if m1=2 then k:=28;
if (m1=4) or (m1=6) or (m1=9) then k:=30;
if (m1=1) or (m1=3) or (m1=5) or (m1=7) or (m1=8) or (m1=10) or (m1=11) or (m1=12) then k:=31;
until (d1>=1) and (d1<=k) and (m1>=1) and (m1<=12);
y3:=y2-y1;
if d2<d1 then if m2<=m1 then y3:=y3-1;
  if m2<m1 then y3:=y3-1;
writeln(y3);
end.