сделайте пожалуйста ту же самую программу только с процедурой
var x,y,y1,y2,y3:real;
function st (b,b1:real):real;
begin
st:=power(b,b1);
end;
begin
write('x');
readln(x);
y1:=st(x,2);
y2:=st(x,3);
y3:=st(5,6);
y:=(y1+y2+y3)/3;
writeln('y',y);
end.

Пойдёт?var x,y,y1,y2,y3:real;function st(b,b1:real):real;beginst:=power(b,b1);end;procedure work;beginy1:=st(x,2);y2:=st(x,3);y3:=st(5,6);y:=(y1+y2+y3)/3;end;beginwrite('x');readln(x);work;writeln('y',y);end.

var x,y,y1,y2,y3:real;function st(b,b1:real):real;beginst:=power(b,b1);end;procedure work;beginy1:=st(x,2);y2:=st(x,3);y3:=st(5,6);y:=(y1+y2+y3)/3;end;beginwrite('x');readln(x);work;writeln('y',y);end.

ПОСЛЕДНИЙ это исправленный

подпрограма должна быть в виде процедуры.То есть место функции процедура

понял

Пойдёт?var x,y,y1,y2,y3:real;function st(b,b1:real):real;beginst:=power(b,b1);end;procedure work;beginy1:=st(x,2);y2:=st(x,3);y3:=st(5,6);y:=(y1+y2+y3)/3;end;beginwrite('x');readln(x);work;writeln('y',y);end.