Возведение в степень

var
s,i,k,l:integer;
begin
s:=2;
l:=2;
readln(k);
for i:=1 to k-1 do
l:=l*s;
writeln(l);
end.

var
s,i,k,l:integer;
begin
s:=2;
l:=2;
readln(k);
if k>0 then
for i:=1 to k-1 do
l:=l*s
else l:=0;
writeln(l);
end.

  Program V2;
     uses crt;
     var
     i, s, n: integer;
     begin
     readln (n);
     s:=1;
     for i:= 1 to n do
     s:=2*s;
     writeln('s = ' , s ) ;
     end.

Program Stepen;
uses
  crt;
const
  a=2;
var
  m:shortint;
  z:real;
Procedure Step (osn:real;st:byte;var res:real);
var
  i:byte;
Begin
  res:=1;
  for i:=1 to st do
    res:=res*osn
  end;
Begin
clrscr;
writeln('Vvedite stepen');
readln (m);
if m=0 then z:=1
  else if m>0 then Step (a,m,z)
    else step (1/a,-m,z);
writeln (m,'=',z:6:3);
writeln ('Nagmite Enter');
readln
end.

Program Pidnesenya_do_Stepenya;
var a,s: real;
    n,i: integer;
 
 begin
   writeln('Введіть число яке хочете піднести в степінь');
   read(a);
   writeln('Введіть показник степення'); 
   read(n);
   i:=1;
   s:=a;
 if n=0 then
  writeln('Результат дії рівний ',1)
 else
  begin
   while i<n do
    begin
     i:=i+1;
     a:=a*s;
    end;
     writeln('Результат дії рівний ',a); 
  end;
end.