Как нарисовать прямоугольники в паскале​

1) #include <iostream>

#include <vector>

using namespace std;

int main() {

vector<int> arr;

int N;

int sum = 0;

cin >> N;

for(int i = 0; i<N; ++i) {

int temp;

cin >> temp;

arr.push_back(temp);

if(i==0) {

sum = arr[i];

} else {

sum*=arr[i];

}

cout << "Sum: " << sum;

}

2) #include <iostream>

#include <vector>

using namespace std;

int main() {

vector<int> arr;

int N;

cin >> N;

int sum2(0), sum3(0);

for(int i = 0; i<N; ++i) {

 int temp;

 cin >> temp;

 arr.push_back(temp);

 if(arr[i]>9&&arr[i]<100) {

  if(sum2==0) {

   sum2=arr[i];

  } else {

   sum2*=arr[i];

  }  

 } else {

  if(arr[i]>99&&arr[i]<1000) {

   sum3+=arr[i];

  }

 }

}

cout << "Sum2: " << sum2 << endl << "Sum3: " << sum3;

}

Задача №1

var a:array [1..20] of integer;     
i:integer;
begin 
randomize;   
for i:=1 to 20 do begin   
a[i]:=random(19-(-10)+1)+-10;     
write (a[i],' ');           
end;
end.

Задача №2

var a:array [1..20] of integer; 
i:integer; 
begin 
writeln('Введите числа в интервале [-20;29]'); 
for i:=1 to 10 do read(a[i]); 
for i:=1 to 10 do 
if (a[i]>-29) and (a[i]<20) then write(a[i],' '); 
end.

Задача №3

var a:array [1..20] of integer; 
i,sum:integer; 
begin 
randomize; 
sum:=0; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
write (a[i],' '); 
if a[i]>0 then sum:=sum+1; 
end; 
writeln('Количество положительных элементов массива = ', sum); 
end.

Задача №4

var a:array [1..20] of integer; 
i:integer; 
begin 
randomize; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
if a[i]<0 then a[i]:=0; 
write (a[i],' '); 
end; 
end.

Задача №5

var a:array [1..20] of integer; 
i,sum:integer; 
begin 
randomize; 
sum:=0; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
write (a[i],' '); 
if a[i]>0 then sum:=sum+a[i]; 
end; 
writeln('Сумма положительных элементов массива = ', sum); 
end.