var n,i,c:byte;
a,w,r:word;
BEGIN
write('n= ');
readln(n);
a:=1; w:=1; r:=1;

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

c:=0;
while cw:=w*2; inc(c);
end;

c:=0;
repeat
r:=r*2;
inc(c);
until c>=n;

writeln('a=w=r=2');
writeln('a^',n,'= ',a);
writeln('w^',n,'= ',w);
writeln('r^',n,'= ',r);
readln;

END.

<< Назад