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

Question

Даны 3 различных числа. Определить, какое из них (первое, второе или третье) является средним. По программированию Паскаля. Помогите пожалуйста!

Answer 1

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.