Чуваки у меня проблемы с программой паскальной
uses graphabc;
var x,y,d:integer;
procedure grib(x,y,d:integer);
begin
setbrushcolor(clrandom);
ellipse(x+d div 3, y, x+2*d div 3, y+d);
setbrushcolor(clrandom);
pie(x + d div 2, y + d div 3,
d div 3, 0, 180);
end;
begin
for var i:= 1 to 1000 do
begin
x:= random(400);
y:= random(200);
d:= random(150);
grib(x,y,d);
end;
end.
выдаёт, мол, ошибка времени исполнения: недопустимый параметр. вот на школьном компьютере всё было супер - хоть тысячу этих грибов создавай, хоть десять тысяч. а на домашнем спавнит до десяти единиц и всё, не знаю, как так жить
