Составить программу (Паскаль) построения на экране n прямоугольников разного цвета, расположенных хаотично.

uses graph;

var n, i, x, y, height, width:integer;

procedure init;

var gd, gm:integer;

begin

gd:=vga;

gm:=vgahi;

initgraph (gd, gm,'') ;

end;

procedure error;

begin

closegraph;

writeln ('error!') ;

end;

begin

write ('N = ') ;

readln (n) ;

randomize;

init;

if graphresult = 0 then

begin

for i:=1 to n do

begin

setcolor (random (14) + 1) ;

x:=random (640) ;

y:=random (480) ;

height:=random (91) + 10;

width:=random (101) + 20;

rectangle (x, y, x+width, y+height) ;

end;

end else error;

end.