program kv;
uses graph,crt;
var gd,gm,x1,y1,c,a:integer;
begin
c lrscr;
randomize;
gd: =0;
initgraph(gd,gm,'c:\bp\bgi');
x1:=310; y1:=230; a:=20;
repeat
c:=random(15);
setcolor(c);
rectangle (x1,y1,x1+a,y1-a);
x1:=x1-10; y1:=y1+10;   a:=a+20;
until a>400;
readkey;
closegraph;
end.