Как заменить программму в турбо паскале чтоб она решалась в паскале 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...

Как заменить программму в турбо паскале чтоб она решалась в паскале 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.