begin
  x := 0;
  while x < 5 do
  begin
    print x;
    x := x + 1;
  end;
  x := 0;
  while x < 5 do
  begin
    print x;
    x := x + 1;
  end;
end.