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

Question

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

Пётр Соколов · Accepted Answer

uses 
 GraphABC; 
var 
 c, n: integer; 
begin 
 randomize; 
 read(n); 
 for c := 1 to n do begin 
 Brush.Color := RGB(random(256), random(256), random(256)); 
 FillCircle(random(540) + 50, random(380) + 50, 50); 
 end; 
end.

Анастасия Комарова · 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.