Програмування Pascal, Детальна інформація

setcolor (green);

str:='Оце i е задача з графiки.';

outtextxy (200,40,str);

setcolor (white);

for i:=0 to 15 do

begin

setcolor (i);

circle (350,150,i);

i:=i+1;

end;

size:=imagesize (335,135,365,165);

getmem (p,size);

getimage (335,135,365,165,p^);

putimage (335,135,p^,xorput);

a:=0;

b:=50;

c:=90;

x1:=1000;

x2:=1000;

x3:=1000;

repeat

10:

putimage (150,203-x1,p^,xorput);

putimage (300,203-x2,p^,xorput);

putimage (450,203-x3,p^,xorput);

inc (a);

if a=181 then a:=0;

inc (b);

if b=181 then b:=0;

inc (c);