rectangl.pas

 {Rectangl.PAS}
 
 { Пример программы для процедуры Rectangle }
 
 Uses Crt, Graph;
 
 Var GraphDriver, GraphMode : Integer;
     X0, Y0, X1, Y1, X2, Y2 : Integer;
 
 Begin
  GraphDriver:=Detect;
  InitGraph(GraphDriver, GraphMode, '');
  If GraphResult<> grOk Then Halt(1);
  X0:=GetMaxX;
  Y0:=GetMaxY;
  Randomize;
  Repeat
   X1:=Random(X0);
   Y1:=Random(Y0);
   X2:=Random(X0 - X1) + X1;
   Y2:=Random(Y0 - Y1) + Y1;
   Rectangle(X1, Y1, X2, Y2);
  Until KeyPressed;
  CloseGraph;
 End.