Решение через функции записать через процедуры Опции

[kvadrat]

Условие:


Вот решение задчи через функции:

program searsdfg;
uses crt;
function f1(x:real):real;
begin
f1:=x*x*x;
end;
function f2(x,y,z:real):real;
begin
if (x>y) and (x>7) then f2:=x;
end;
function f3(x,y:real):real;
begin
if x>y then f3:=x;
end;
function f4(y:real):real;
begin
f4:=y*y*y;
end;
var x,y,c:real;
begin
clrscr;
writeln('x=?');
readln(x);
writeln('y=?');
readln(y);
c:=(f1(x)+(x+f4(y))*sqrt((x*f4(y))+f1(x))/(f2(x,x*y,x+y)+f3(x,x*y)));
writeln;
writeln('c=',c:2:2);
readln;
end.

Как переделать решение так чтобы вместо функций были использованы процедуры? И пожалуйсто объясните как это делается.