Сделайте задачу в программе паскаль. Составьте программу вычисления степени…

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;