Нужно написать программу в паскали авс. условие: нужно возвести число а в 20 степень. заранее !

Есть функция power
var a:integer;
begin
readln(a);
writeln(power(a,20));
end.

если нужно без ее то циклом
var i,a,r:integer;
begin
r:=1;
readln(a);
for i:=1 to 20 do
r*=a;
writeln(r);
end.