нахождение мин и макс числа

[Данил1986]

Даны действительные числа a, b. Получить u = min(a, b), v = min(ab, a + b), x = min(u2 + v, 3.14).
не могу никак решить, нужно в паскале.может кто попробует?

[ROMA2PVT]

всё что здесь нужно это функцию написать:

function min(a,b:real):real;
begin
  if a<b then min:=a
  else min:=b;
end;

[ROMA2PVT]

Неохото ждать вопросов типа:''А можешь полностью написать?''.

Uses
   CRT;
var
  u,v,x,a,b:real;

function min (a,b:real):real;
begin
  if a<b then min:=a
  else min:=b;
end;

begin
 Clrscr;
  Write('Введите A: ');
     Readln(a);
        Write('Введите B: ');
           ReadLn(b);
             WriteLn;
               u:=min(a,b);
                 v:=min(a*b,a+b);
                   x:=min(u+v,3.14);
                     Writeln('min(a,b):=',u:1:2);
                       Writeln('min(a*b,a+b):=',v:1:2);
                         WriteLn('min(u+v,3.14):=',x:1:2);
                            Readkey;
end.

[Данил1986]

все получилось! спасибо большое! а я функцию неправильно писал, вот и не получалось..