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;
<span>Почему вы не хотите воспользоваться онлайн шифровщиком ?
Вот и ответ : рцяешцст</span>