Даны 3 различных числа. определить, какое из них (первое, второе или третье) является средним

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,c:real;
  Read(a,b,c); // не вводить одинаковых!
  if a>b then
    if a>c then // a > [b,c]
      if b>c then Writeln('Среднее - второе число')
      else Writeln('Среднее - третье число')
    else Writeln('Среднее - первое число')
  else
    if b>c then // b > [a,c]
      if a>c then Writeln('Среднее - первое число')
      else Writeln('Среднее - третье число')
    else Writeln('Среднее -  второе число')
end.

Var
    a, b, c: real;

function IsBetween(x, a, b: real): boolean;
var
    t: real;
begin
    if a < b then
    begin
        t := a;
        a := b;
        b := t;
    end;
    IsBetween := (a >= b) and (a >= x) and (x >= b);
end;

begin
    
    Readln(a, b, c); // не вводить одинаковых!
    Write('Среднее число №');
    
    if IsBetween(a, b, c) then writeln(1);
    if IsBetween(b, a, c) then writeln(2);
    if IsBetween(c, b, a) then writeln(3);
end.

Если вынуть 94 конфет, то будут конфеты всех 3 видов.Пусть у нас по n конфет каждого вида.Тогда может так получиться, что мы вынем 2n конфет, и они будут только 2 видов. И только, вынув (2n+1)-ю конфету, мы получим все три.2n+1 = 942n = 93.Значит, конфет одного и другого вида по [93/2] = 46,а конфет третьего вида 47.Пусть ирисок и леденцов по 46, а шоколадных 47.Вынув 46 ирисок и 46 леденцов (92 конфет), мы получим 2 вида.Вынув 46 ирисок и 47 шоколадных (93), мы получим 2 вида.Вынув 46 леденцов и 47 шоколадных (93), мы получим 2 вида.И только вынув 94-ую (в 1 случае 93 и 94), мы получим 3 вида.ответ: всего конфет было 46 + 46 + 47 = 139.

Program str;
 Uses crt;
Var   s:string;  
i,p,sum:integer;
Begin     
         P:=1;     
         Sum:=0;     
         Readln(s);     
         For i:=1 to length(s) do     
               Begin      
          If s[i] in ['0'..'9'] then                       
                                       Begin                           
                                               p:=p*(ord(s[i])-ord('0'));                                                                                         sum:=sum+(ord(s[i])-ord('0'));                     
                                       End;     
               End;     
Writeln('Сумма = ',sum,' ','Произведение = ',p);
End.