// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
Вариант, где реализовано не в виде процедуры sub, а при помощи function
<span>4 1 И (0 И 1)
так как (0 и 1) = 0
=>
1 и (0 и 1) = (1 и 0) = 0
</span>