Как зделать прогу в Paskal ABC?

Question

Нам в школе задали зделать прогу чтоб ты задал количество кругов а она тибе их нарисовала. Помогите плиз. Зарание спасибо))))

Алексей Чиженок · Accepted 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.

Антон Сокол · Answer

while (true) do writeln('Я буду учить русский язык');

Денис · Answer

Эта прога какая-то фиговая. По-мойму, здесь даже компилировать нельзя. Используй лучше FreePascal

Александр · Answer

var 
a: string; //количество кругов 
procedure TForm1.FormActivate(Sender: TObject); 
begin; 
form1.caption:='Какие еще тебе тут круги?! '; 
label1.caption:='Да, да, кругов не будет, идем учить рус. яз. '; 
a:='Пытаемся рисовать первый круг'; 
label2.caption:=a; 
end;