program sasa;function stepenj (val:integer):integer;var inp,i,tmp:integer;begin tmp:=val; Result:=1; Writeln ('Vvedi stepenj'); Readln (inp); for i:=1 to inp do Result:=Result*tmp; Writeln (Result); end;
program sasa;
function stepenj (val:integer):integer;
var inp,i,tmp:integer;
begin
tmp:=val;
Result:=1;
Writeln ('Vvedi stepenj');
Readln (inp);
for i:=1 to inp do
Result:=Result*tmp;
Writeln (Result);
end;