USES GRAPHABC;
VAR X,Y:INTEGER;
BEGIN
  SETWINDOWSIZE(400,400);
  x:=-200; 
  y:=200;
 WHILE  X<=400 Do 
   begin
   line(x,y, x+400, y+400);
   
x:=x+20; y:=y-20;

  end;
end.