Question

Как заменить программму в турбо паскале чтоб она решалась в паскале ABC?

program kRUGI;
uses crt;
var gd,gm,c,i,r,x,y,n:integer;
begin
clrscr;
randomize;
writeln('введите колличество окружностей->');
readln(n);
gd:=0;
for i:=1 to n do begin
r:=random(80);x:=random(600);y:=random(400);
c:=random(15);setcolor(c);
circle(x,y,r);
setfillstyler(1,c);floodfill(x,y,c);
end;
readkey;
closegraph;
end.

Answer 1

Есть крутая вещь - справка! Найти аналоги функций не такая уж большая проблема...

6f6e7f275fc82d2fccb54979764ab231.pas