program TwoInPower;
varnumber, power, result: Integer;
beginnumber := 2;power := 5;result := 1;
for var i := 1 to power doresult := result * number;
writeln('Результат: ', result);end.
program TwoInPower;
var
number, power, result: Integer;
begin
number := 2;
power := 5;
result := 1;
for var i := 1 to power do
result := result * number;
writeln('Результат: ', result);
end.