вычислить Y=A^n по формуле Y=A*A*A*A...*A (всего n раз).Значение A и N задайте произвольно.(ПАСКАЛЬ)

спасибо))))

var a, n, s, i: integer;beginwriteln ('Введите а');readln (a);writeln ('Введите n');readln (n);s:= 1;for i:= 1 to n dos:= s*a;writeln (s);end.

Можно процесс ускорить чутка