Что используется для рисование закрашенных и незакрашенных прямоугольников и квадратов?

для этого в графическом редакторе используется инструмент "фигура"

Const   n=10; var   a: array[1..n] of integer;   b: array[1..n] of integer;     i: integer;   sum: integer; begin {заполнение массивов случайными числами} randomize; for i: =1 to n do begin     a[i]: =random(100)-50;     b[i]: =random(100)-50; {или b[i]=a[i]; , если значения  массива b должны совпадать со значениями массива a  } end; {поиск суммы отрицательных элементов} sum: =0; for i: =1 to n do    if a[i]< 0 then sum: =sum+a[i]; {замена нулевых элементов массива b на полученную сумму} for i: =1 to n do   if b[i]=0 then b[i]: =sum; {вывод значений массива a} writeln('массив a'); for i: =1 to n do   write(a[i],','); writeln(''); writeln('массив b'); {вывод значений массива b} for i: =1 to n do   write(b[i],','); {ожидание нажатия клавиши return от пользователя.} readln; end.