Готово :)
..............................
Program P;
Var
a, n, i : Integer;
S : Integer;
Begin
S := 1;
Write('Enter a ');
ReadLn(a);
Write('Enter n ');
ReadLn(n);
for I:=1 to N do
S := S * a;
WriteLn('a ^ n = ', S);
ReadLn;
End.
N=2^i = 2^16симв => i=4бит
I = i * K = 4бит * 32симв = 128бит
Var a,b,c: integer;
begin
writeln('a,b = '); readln(a,b);
c:=a+b;
writeln(c);
end.