Как решить без функций?

[Bakasova]

Помогите решить эту же задачу , только без функций...

Uses CRT;
Var
x,y,z: integer;
g: Real;
Function max(x, y: Integer): Integer;
begin
If (x>=y) then max:=x else max:=y;
end;

Function min(x, y: Integer): Integer;
begin
If (x<=y) then min:=x else min:=y;
end;
Begin
ClrScr;
WriteLn('Input to x,y,z: ');
Read(x, y, z);
WriteLn('Max: ', max(x+y+z, x*y*z));
WriteLn('Min: ', min(x+y+z, z*y*z));
g:=max(x+y+z,x*y*z)/min(x+y+z, z*y*z);
WriteLn('Result max/min: ', g:1:3);
ReadKey;
End.

[p51x]

Вы идиот?

Это же очевидно: не нужны функции - выбросить их, а то, что делалось в них вставить куда надо.

[Mixim]

Сообщение от Bakasova

......<censored> Не собираешься помогать не пиши.

Во-первых, грубить и так разговаривать - это самое низкое, что может быть, к тому же - это нарушение правил форума. Во-вторых, лично я с человеком полностью согласен. Ладно, может быть поможет:

Uses CRT;
Var
   x,y,z,max,min: integer;
   g: Real;
Begin
     ClrScr;
            WriteLn('Input to x,y,z: ');
             Read(x, y, z);
if(x+y+z>x*y*z) then
max:=x+y+z
else
max:=x*y*z;
if(x+y+z<z*y*z) then
min:=x+y+z
else
min:=z*y*z;
             WriteLn('Max: ', max);
             WriteLn('Min: ', min);
            g:=max/min;
             WriteLn('Result max/min: ', g:1:3);
     ReadKey;
End.

Еще раз тебе повторю, что если выкладываешь задачи сложностью "два пальца об асфальт" и слышишь в свою сторону ругань, то будь добр не грубить человеку, а сядь и пораскинь головой, может быть он прав