Ответ:

program z1;

var i,n,s:integer;

begin

write('Введите показатель степени: ');

read(n);

s:=1;

for i:=1 to n do s:=s*2;

write('2^',n,' = ',s)

end.

Объяснение:

Цикл с параметром