Question

Заполните пропуски в процедуре tаѕk
таким образом, чтобы она рисовала
перечеркнутый квадрат, как на
рисунке.
• Первые два параметра - координаты
правого верхнего угла квадрата.
• Третий параметр - длина стороны.
uses graphABC;
procedure task(...);
begin
...
end;
BEGIN
task (100, 80, 30);
END. ​