Х:=1;
у:=х-2;
for i:=1 to 3 do begin
if y<3 then x:=x+4 else x:=x+3;
if x<7 then y:= y+1 else y:=y-2;
end ;
y:=y+x;
writeln(y);

annasummer12201    2   14.05.2020 17:15    1