Сделайте пожалуйста ту же самую программу только с процедурой var x,y,y1,y2,y3:real;...

Question

Сделайте пожалуйста ту же самую программу только с процедурой
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.

Answer 1

Пойдёт?
var x,y,y1,y2,y3:real;
function st(b,b1:real):real;
beginst:=power(b,b1);
end;
procedure work;
begin
y1:=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.

Comments

Пойдёт?
var x,y,y1,y2,y3:real;
function st(b,b1:real):real;
beginst:=power(b,b1);
end;
procedure work;
begin
y1:=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;
begin
st:=power(b,b1);
end;
procedure work;
begin
y1:=st(x,2);
y2:=st(x,3);
y3:=st(5,6);
y:=(y1+y2+y3)/3;
end;
begin
write('x');
readln(x);
work;
writeln('y',y);
end.

---

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

---

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

---

понял