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

Program Stepen;var  x: byte;  y: Real;begin  WriteLn('Введите число x');  Readln(x);  y := exp(ln(x) * 20);  Writeln('ответ = ', y:4:2);  ReadLn;end.