Вычислить y=a^n по формуле y=a*a*a**a(всего n раз).значения a и n дайте произвольно.(паскаль)

1. Это с ручным вводом a и n
var 
y, a, n, i: integer;
begin 
write('Введите число '); 
Readln(a); 
write('Введите желаемую степень '); 
Readln(n); 
Write(a, '^', n, ' = '); 
y:=a; 
for i := 2 to n do   
y := y * a; 
Write(y);
end.

2. А это с рандомизацией переменных
var 
y, a, n, i: integer;
begin 
a := random(30); 
n := random(7); 
Write(a, '^', n, ' = '); 
if n=0 then y:=1 else Begin 
y := a; 
for i := 2 to n do   
y := y * a; 
End;   
Write(y);
end.