Изменил... теперь нормально все.
uses graphabc,crt; var i:integer; h:real;beginrandomize; rectangle(280,130,320,320);rectangle(250,10,350,260);circle(300,55,35);circle(300,135,35); circle(300,215,35); for i:=1 to 1000 do begin floodfill(300,55,clred); delay(3000); floodfill(300,55,clwhite); delay(1000); floodfill(300,135,clyellow); delay(3000); floodfill(300,135,clwhite); delay(1000); floodfill(300,215,clgreen); delay(1000); floodfill(300,215,clwhite); delay(1000); end;end.
Изменил... теперь нормально все.
uses graphabc,crt;
var i:integer; h:real;
begin
randomize;
rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
circle(300,215,35);
for i:=1 to 1000 do
begin
floodfill(300,55,clred);
delay(3000);
floodfill(300,55,clwhite);
delay(1000);
floodfill(300,135,clyellow);
delay(3000);
floodfill(300,135,clwhite);
delay(1000);
floodfill(300,215,clgreen);
delay(1000);
floodfill(300,215,clwhite);
delay(1000);
end;
end.