Question

Написать программу которая возводит число k в 5 степень

Answer 1

Program enot;
Var k,i,j: integer;
 begin
read(k);
j:=1;
for i:= 1 to 5 do
j:=j*k;
writeln(j);
end.