DELPHI
Как найти средние минимальное 3 чисел

function min(x,y:real):real;overload; begin   Result:=х;   if (y<Result) then     Result:=y; end;   //минимум из трёх чисел function min(x,y,z:real):real;overload; begin   Result:=min(x,min(у,z)); end;   //модули procedure toAbsolute; var   i,a:integer; begin   for i:=1 to $a do     begin       Write('|');ReadLn(a);Write('|=');       if min(a,0)=a then         a:=-а;       WriteLn(a);     end; end;   //максимум procedure Maximum; var   i,a,b:byte; begin   ReadLn(b);   for i:=2 to $a do     begin       ReadLn(a);       if min(a,b)=b then         b:=а;     end;   WriteLn('max=',b); end;