Нужно!
программа на pascalabc
uses graphabc; var n,xr,yr: integer; begin setwindowsize(600,400); readln(n); for var i : = 1 to n do begin setpencolor(rgb(random(256),random(256),random(; xr: =random(601); yr: =random(401); circle(xr,yr,random(31)); floodfill(xr,yr,rgb(random(((256)); end; end.
выдает ошибку:
program1.pas: встречено 'end', а ожидался идентификатор
Объяснение:
Program Xr:
var n,xr,yr:integer;
begin setwindowsize(600,400);
readln(n);
for var i := 1 to n do
begin
end