begin
  while 2*2=4 do
  begin
    while x>0 do
      x := 3; 
  end;
end.