Developing.ru

Народ! Помогите! Сегодня экзамен!!!
Даны действительные a,b,c.
Получить (max(a+c,a+b) + min(a+b,b+c)) / (1+max(a+bc,4.15))

вот текст программы:


program ex_34_2;
uses wincrt;
var
a,b,c,d,e:real;
y,x:real;
begin
write('vvedite a -->');
readln(a);
write('vvedite b -->');
readln(b);
write('vvedite c -->');
readln(c);

if (a+b>a+c)
then d:=a+b
else d:=a+c;

{writeln('max(a+c,a+b) = ',d:2:2);}

if (b+c>a+b)
then e:=a+b
else e:=b+c;

{writeln('min(a+b,b+c) = ',e:2:2); }

if(a+b*c>4.15)
then x:=((a+b*c)+1)
else x:=4.15+1;

{writeln('1+max(a+b*c,4.15) = ',x:3:2);}

y:=(d+e)/x;
writeln('------------------------------------------------------');
writeln('max(a+c,a+b)+min(a+b,b+c)/1+max(a,b*c,4.15) = ',y:2:3);
writeln('------------------------------------------------------');
readkey;
end.


Я сделал через if , но нужно переделать и прописать через модули! Помогите плиз!