нарисовать 3 воздушных шара окрасить красным цветом

Question

это надо решить в Delphi вот в этом проблема

надо не звездное небо а нарисовать 3 воздушных шара окрасить красным цветом

Елена Пахоменко · Accepted Answer

И в чем проблема? :)

Ната · Answer

переделай под свою 
{Ну и вот звездное небо: } 
program grnebo; 
uses graphABC,crt; 
var 
x,y:integer; 
n,i,r,k:integer; 
m:array [1..6] of integer; 
begin 
randomize; 
m[1]:=clred; 
m[2]:=clyellow; 
m[3]:=clgreen; 
m[4]:=clblue; 
m[5]:=clolive; 
m[6]:=clsilver; 
for i:=1 to 50 do begin 
x:=300 + random(510)-200; 
y:=250 + random(400)-200; 
r:=10; 
delay(100); 
k:= random(6)+1; 
SetBrushColor(m[k]); 
circle(x,y,r); 
end; 
end.