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.