Чуваки у меня проблемы с программой паскальной

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.

выдаёт, мол, ошибка времени исполнения: недопустимый параметр. вот на школьном компьютере всё было супер - хоть тысячу этих грибов создавай, хоть десять тысяч. а на домашнем спавнит до десяти единиц и всё, не знаю, как так жить

glupiychelovek    1   22.03.2020 21:00    0