var i, n, a, p: integer;beginwriteln('Vvedi N: ');readln(n);writeln('Vvedi A: ');readln(a);p := 1;for i := 0 to sqr(n) do begin p := p * (a - n); n := n * 2; end;writeln(p);readln;end.
var i, n, a, p: integer;
begin
writeln('Vvedi N: ');
readln(n);
writeln('Vvedi A: ');
readln(a);
p := 1;
for i := 0 to sqr(n) do
begin
p := p * (a - n);
n := n * 2;
end;
writeln(p);
readln;
end.