Как построить квадрат в паскаль информатика

{Выводит узор из 100 произвольно размещенных окружностей произвольного

радиуса и цвета}

uses Graph;

var

grDriver:integer;

grMode: integer;

grPath:string;

ErrCode:integer;

x,y,r: integer; ( координаты центра и радиус окружности }

i: integer;

begin

grDriver:=VGA;

grMode:=VGAHi;

grPath:=' ';

InitGraph (grDriver,grMode,grPath);

ErrCode:=GraphResult;

if ErrCode <> grOk then

begin

writeln ('Ошибка инициализации графического режима.1);

writeln ('Для завершения работы нажмите <Enter>');

readln;

Halt(l);

end;

Randomize;

for i:=l to 100 do

begin

x:=Random(640);

y:=Random(480);

r:=Random(240);

Setcolor(Random(16));

Circle(x,y,r);

end;

readin;

end.

и что тут сложного?

#include

using namespace std;

int main()

{

    int n;

   

    cin > > n;

   

    int32_t arr[n];

   

    for (size_t i = 0; i < n; ++i)

    {

        cin > > arr[i];

    }

   

    int32_t max = arr[0], min = arr[0];

 

    for (auto & i : arr)

    {

        if (i > max) max = i;

        if (i < min) min = i;

    }

   

    cout < < static_cast(max + min) / 2 < < "\n";

   

    return 0;

}