Процедуры. 23. Вычислить значение функции

23. Вычислить значение функции

program stepen;

uses crt;

var x,k,Y:integer;

procedure STEP(x,s:integer; var r:integer);

var i: integer;

begin

r:=1;

for i:=1 to s do r:=r*x;

end;

BEGIN

clrscr;

writeln('Введите x,k:');

readln(x,k);

Step(x,k,y);

writeln ('y=',y);

readln;

END.