Произвести арифметические вычисления

Program inf;
uses crt;
function F(s,t:integer):real;
         begin
              F:=(2*ln(s*t))-(1/(sqr(s)+1));
         end;
procedure Res(y,z:integer;var u:real;Var min:real);
          begin
               u:=f(y,z)+min*(f(y+z,2*z))*(f(2*y,y+z));
               write('çíà÷åíèå -');
          end;
var
   min,y,z,s,t,u:integer;
 
begin
writeln('y,z');
readln(y,z);
if y<z
   then
       begin
       min:=y;
       s:=y+z;
       t:=2*z;
       end
                   else
                       Begin
                            min:=z;
                            s:=2*y;
                            t:=y+z;
                       end;
Res(f,y,z,u,min);
end.

Program inf;
uses crt;
function F(s,t:real):real;
begin
F:=sqr(sin(s*t))-1/(sqr(s)+1)
end;
function Min(a,b:real):real;
begin
if a<b then Min:=a else Min:=b
end;
function U(y,z:real):real;
begin
U:=F(y,z)+Min(F(y+z,2*z),F(2*y,y+z));
end;
var y,z:real;
begin
writeln('Введите значения y,z:');
read(y,z);
write('U=',U(y,z):0:3)
end.