Тут ответ номер 3 по идеи
uses Math;
var i,n:integer;
begin
write('Введите число N: ');
readln(n);
for i:=1 to n do
write(power(2,i):0:0,' ');
readln
end.
Const N = 5;
Var m:array [1..N, 1..N] of integer; j,S,i:integer;
Begin
S:=0;
for i:=1 to N do
for j:=1 to N do begin
readln(m[i,j]); S:=S+m[i,j]; end;
writeln(S);
readln;
end.