Question

(ДАМ 40 БАЛЛОВ)здравствуйте, столкнулся с проблемой, помогите пожалуйста. мне нужно вот прям щас. мне нужно составить такую задачу:

Напишите программу которая рисует фигуру в случайном месте и закрашиваете случайным цветом, обводка фигуры 6 пикселей. Начинать с черной точки, длина стороны квадрата вводиться с клавиатуры, также задается количество фигур. Оформить задачу с помощью процедуры.

я вроде как составил (правильно, не правильно) суть не в этом.

я когда нажимаю посмотреть, что получилось выдает следующие : неверное количество фактических параметров.

вот что у меня получилось:

uses graphABC;

var x1, x2, x3, x4, y1, y2, y3, i:integer;

begin

setwindowwidth(1000);

setwindowheight(1000);

for i:= 1 to 10 do

begin


x1:=random(301);

y1:=random(801);

x2:=random(901);

y2:=random(401);

x3:=random(801);

y3:=random(201);

x4:=random (801);

line(x1, x2, x3, x4, y1, y2, y3);

end;

end.

Answer 1

Пока не похудеешь нечиго не скажу
Объяснение: