Программирование на Pascal / Delphi / Лабораторные работы1 / Лаба№7

Program g;

uses graph,crt;

var

driver,mode,x,y,z,v:integer;

i:integer;

begin

randomize;

driver:=detect;

initgraph(Driver,mode,'');

x:=60;

y:=50;

z:=100;

v:=200;

for i:=1 to 100 do

begin

bar(0,0,getmaxx,getmaxy);

setfillstyle(solidfill,6);

setcolor(3);

rectangle(x,y,z,v);

Delay(30000);

ClearDevice;

x:=x;

y:=y+10;

z:=z;

v:=v+10;

end;

FloodFill(1,1,15);

outtextxy(10,10-i,'press enter');

readln;

closegraph;

end.