[Asinkrit]

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

через case это не решить

Почему не решить? Просто это извращение.

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  A, B, C, Y: Integer;

begin
  Write('A = ');Readln(A);
  Write('B = ');Readln(B);
  Write('C = ');Readln(C);

  Y:=0;
  case (A < B) of
  true:
    case (B < C) of
    true: Y:=1;
    end;
  false:
    case (A = B) of
    true:
      case (B = C) of
      true: Y:=2;
      end;
    false:
      case (A > B) of
      true:
        case (A < C) of
        true: Y:=3;
        end;
      end;
    end;
  end;

  Writeln('Y = ',Y);
  Readln;
end.