// 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
Var n, i: Integer;
sum: Double;
a: Array[1..1000] of Double;
begin
ReadLn(n);
for i:=1 to n do Read(a[i]);
sum:=0;
for i:=1 to 10 do sum:=sum+a[i];
a[8]:=sum;
WriteLn('--');
for i:=1 to n do Write(a[i]:0:3, ', ');
end.