Question

Как заменить программму в турбо паскале чтоб она решалась в паскале ABC? program kRUGI;uses crt;var gd,gm,c,i,r,x,y,n:integer;beginclrscr;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

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