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.
КАК ЭТУ ПРОГРАММУ ЗАПИСАТЬ В МОДУЛЕ? ПОМОГИТЕ ПЛИЗ!
