program PowerCalculation;
vaA, N, Y, i: integer;
begi// задаем значения A и A := 2N := 5;
// начальное значение Y := 1;
// вычисление Y = A^for i := 1 to N dbegiY := Y * Aend;
writeln('Y = ', Y)end.
program PowerCalculation;
va
A, N, Y, i: integer;
begi
// задаем значения A и
A := 2
N := 5;
// начальное значение
Y := 1;
// вычисление Y = A^
for i := 1 to N d
begi
Y := Y * A
end;
writeln('Y = ', Y)
end.