Изучи предложенный алгоритм и введи с клавиатуры количество колонок во втором разделе документа.

1.
Begin
 Writeln('Привет!');
 Writeln('Меня зовут Саша!');
 Writeln('Я студентка 2-ого курса начального образования!');
 Writeln('Я будущий учитель младших классов...');
end.

2.
var n:Integer;
Begin
 Read(n);
 Writeln('Квадрат =',n*n);
end.

3.
var a:Integer;
Begin
 Read(a);
 Writeln('S = ',a*a);
 Writeln('P = ',4*a);
end.

4. var n:Integer;
   Begin
     Read(n);
     Writeln(n+10);
  end.

5. var a,b:Integer;
   Begin
     Read(a,b);
     Writeln(' S = ',a*b);
     Writeln(' P = ',2*(a+b));
   end.

6. var a,b,c:Integer;
   Begin
     Read(a,b,c);
     Writeln('Сума = ',a+b+c);
   end.

Притянуто "за уши", но такое уж задание несуразное. Видимо, для старых версий языка.

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

function Summa(a:array of integer):=a.Sum;

begin
  var a:=ArrRandom(10,-99,99); a.Println; Writeln;
  var b:=ArrRandom(20,-99,99); b.Println; Writeln;
  var c:=ArrRandom(30,-99,99); c.Println; Writeln;
  Writeln('S=',Summa(a)+Summa(b)+Summa(c))  
end.

Пример
53 34 13 64 79 28 -98 -43 -19 23

96 -18 48 61 -70 -16 92 0 27 65 -68 -17 -77 90 -13 69 46 85 71 -44

-21 65 -56 31 56 25 37 50 -35 52 91 -94 12 -98 -51 -73 6 -31 -7 -32 35 -88 -53 63 -93 -29 11 22 -23 -89

S=244