begin
  while True do
  begin
    x := 3; 
  end;
  if x>0 then
    x := 1
  else
  begin
    x := 2;
    write(1);
  end;
  if x>1 then
    x := y
end.