Сделать функцию и процедуруСРОЧНО!! ПОЖАЛУЙСТА!!ДАЮ 35 БАЛЛОВ!!

1)Функция

program fun;

function ch(a,b,k,m : real): real;

var

f,u,v : real;

begin

u:=7*a*a-4*k+sqrt(a*k);

v:=9*b/(b+7*b*m-m*m);

f:=u*u+2*u*v-3*v;

ch:=f;

end;

var  

x,y,b,c : real;

begin

writeln('Введите числа');  

read(x,y,b,c);

writeln('F= ',ch(x,y,b,c):0:2);

end.

2)Процедура

program fun;

procedure ch(a,b,k,m : real);

var

f,u,v : real;

begin

u:=7*a*a-4*k+sqrt(a*k);

v:=9*b/(b+7*b*m-m*m);

f:=u*u+2*u*v-3*v;

writeln('F= ',f:0:2);

end;

var  

x,y,b,c : real;

begin

writeln('Введите числа');  

read(x,y,b,c);

ch(x,y,b,c)

end.