1)
if (x > 1) and (x < 2) then begin
x:=x+1;
y:=0
end
else begin
x:=0;
y:=y+1
end;
2)
else
begin
y:=y+1;
