Напишите на языке паскаль наиболее короткие алгоритмы вычисления а)у=х^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.