Ирина Минакова
p:=1;
for i:=1 to n do
p:=p*2;
Повторить двойку умножением N раз
В паскале АБС будет так:
program her;
uses crt, math;
var n,rez;
begin
writeln("vvedite stepen");
readln(n);
rez := power(2,n);
writeln("result: ", rez);
end.
readln(n);
writeln(1 shl n);
Это если именно двойку, с другими основаниями фокус не пройдет.