Напишите на языке Паскаль наиболее короткие алгоритмы вычисления а)у=х^12 , б)у=х^17 , в)у=х^20

Спасибо

program p1;var x,i,num:longint;function stepen(x,n:integer):longint;begin if n=1 then stepen:=x else stepen:=x*stepen(x,n-1);end;begin readln(x);writeln(stepen(x,12));writeln(stepen(x,17));writeln(stepen(x,20));end.