USES GRAPHABC;
VAR X,Y:INTEGER;
BEGIN
  SETWINDOWSIZE(600,600);
  X:=50; Y:=50;
 WHILE  X<=500 Do
  begin
    RECTANGLE (x,y,x+50,y+50);
    X:=x+50; Y:=y+50;
  end;
end.