Составьте программу вывода на экран таблицы степеней 2 в n степени, где 0<=n<=10

var n,i,p:integer;
begin
p:=1;
write('Ñòåïåíü n=');
repeat
readln(n);
until (n>=0) and (n<=10);
for i:=1 to n do
begin
p:=p*2;
writeln('2 â ',i,' ñòåïåíè = ',p);
end;
end.

var A:array[1..50,1..50] of integer;
    n,i,j,t,k:integer;
begin
write('Ðàçìåðíîñòü ìàññèâà = ');
readln(n);
 
writeln('Ââåäèòå ìàòðèöó À:');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
 
writeln('Ìàòðèöà À:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
 
    for i:=1 to n do
      for k:=1 to j do
        if a[i,2]>a[k,2] then
          begin
            t:=a[i,2];
            a[i,2]:=a[k,2];
            a[k,2]:=t;
          end;
 
writeln('Ïîëó÷åííàÿ ìàòðèöà À:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
 
end.

var n,i,p:integer;
begin
p:=1;
write('Степень n=');
repeat
readln(n);
until (n>=0) and (n<=10);
for i:=1 to n do
begin
p:=p*2;
writeln('2 в ',i,' степени = ',p);
end;
end.

var A:array[1..50,1..50] of integer;
    n,i,j,t,k:integer;
begin
write('Размерность массива = ');
readln(n);
 
writeln('Введите матрицу А:');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
 
writeln('Матрица А:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
 
    for i:=1 to n do
      for k:=1 to j do
        if a[i,2]>a[k,2] then
          begin
            t:=a[i,2];
            a[i,2]:=a[k,2];
            a[k,2]:=t;
          end;
 
writeln('Полученная матрица А:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
 
end.