 
                                                 
                                                 
                                                1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
 s:=s*a;
 end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.
2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
 s:=s*a;
 writeln(a,' в степени ',i,' равно ',s);
 end;
end.
3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
 s:=s*a;
 p:=p+s;
 if i<n then write(s,' + ');
 if i=n then write(s,' = ');
 end;
writeln(p);
end.
 
                                                 
                                                 
                                                 
                                                 
                                                 
                                                 
                                                
625 КБ
Объяснение:
256000*20=5120000=625КБ