Question

x := 1;
y := x - 3;
for i := 1 to 3 do begin
if y < 4 then x := x + 1 else x := x + 3;
if x < 7 then y := y + 4 else y := y - 3;
end;
y := y + x;
writeln (y);
помогите господи...