Help! sos. нужна программа по нахождению объёма куба в pascal abc

Var a,b: integer;
begin
write('введите три грани куба : ');
readln(a);
b:=a*a*a;
writeln('объём куба',b);
end.

Задача 1:

var a:array[1..15] of integer;

i:integer;

begin

   for i:=1 to length(a) do begin

       a[i]:=random(-101)+50;

       writeln('a[',i,']=', a[i]);

   end;

end.

Задача 2:

var i:integer;

a:array[1..20] of integer;

b:array[1..20] of integer;

c:array[1..20] of integer;

begin

   for i:=1 to length(a) do begin

       a[i]:=random(-21)+10;

       b[i]:=random(-21)+10;

       c[i]:=a[i]+b[i];

       write(a[i]:3, ' ');

   end;

   writeln();

   for i:=1 to length(b) do write(b[i]:3, ' ');

   writeln();

   for i:=1 to length(c) do write(c[i]:3, ' ');

end.

Задача 3 (ряд Фибоначчи):

var i:integer;

a:array[1..20] of integer;

begin

   for i:=1 to length(a) do begin

       if i<=2 then a[i]:=1

       else begin

           a[i]:=a[i-2]+a[i-1];

       end;

       write(a[i], ' ');

   end;

end.

Введите а: -4

Введите b: 12

! Результат работы а: 8

Введите а: -4

Введите b: 6

! Результат работы б: 22

Введите а: 90

Введите b: 40

! Результат работы в: 70

Объяснение:

С++:

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "RUS");

int a, b, c;

//a

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

b = b + a * 2;

if (a > b)

{

 c = a + b;

}

else

{

 c = b - a;

}

cout << "Результат работы а: " << c << endl;

//б

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

a = a - b * 2;

if (a <= b)

{

 c = b - a;

}

else

{

 c = a - b;

}

cout << "Результат работы б: " << c << endl;

//в

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

a = a - b * 3;

if (a>b)

{

 c = a - b;

}

else

{

 c = b - a;

}

cout << "Результат работы в: " << c << endl;

}