1) Описать любую стандартную функцию 2) Составить простую процедуру с параметрами…

функция Power (x,y) принимает параметры x, y типа realвозвращает x в степени y тоже типа real {прогамма по реализации этой функции только для параметров целого типа} function Pow (a, x: integer): integer; {функция возведение целого числа в степень с целым показателем}var r, i: integer; begin r: =1; for i: =1 to x do r: =r*a; Pow: =r; end; var a, x: integer; begin write ('a='); readln (a); write ('x='); readln (x); writeln (a, ' ^ ', x, '=', Pow (a, x); end.