Как записать степень в паскале. помогите

Стандартной функции, на сколько я знаю, нет, вот пример "самодельной" функции, возводящей число x в степень y: function pow(x, y : integer) : integer; var i, res : integer; begin res := 1; for i:=1 to y do res := res*x; pow := res; end;