Написать программу вычисления полной площади и объёма параллелепипеда,

uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();

//заполнение массива случайными числами

for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;

//вывод массива

for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;

//удаляем строку 6 и меняем 5 и 2 строки местами

for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
end.

1→ 2; 2→3; 3→4; 10→11; 100→101 К числу прибавляется 1

1→2; 2→4; 3→6; 4→8; 10→20; 100→200 Число умножается на 2

1→3; 2→5; 3→7; 4→9; 10→21; 100→201 К числу прибавляется следующее число. Например: 1+2=3; 2+3=5; 3+4=7; 100+101=201

1→2; 2→1; 3→4; 4→3; 10→9; 11→12; 100→99 Если число четное, то отнимаем 1, если нечетное, то прибавляем1.

1→2; 2→1; 3→6; 4→2; 10→5; 11→22; 100→50 Четное число делим на 2, нечетное число умножаем на 2

1→1; 2→1; 3→1; 4→1; 10→2; 11→2; 100→3 Сколько цифр в числе, такое  число

1→1; 2→2; 3→0; 4→1; 20→2; 21→ 0 Если число делится на 3, то 0. Если не делится, то ответом будет число 1 или 2, которое нужно прибавить или отнять чтобы получить 0 или число которое делится на 3 без остатка