Файл Date.in файл содержит 3 различных целых чисел, разделенных пробелами. Написать программу, которая укажет, какие из чисел является максимальным, минимальным и какие не является ни минимальным, ни максимальным. Результат отображается на экране и файле date.out.

Var
  a, b, c, min, max, mid: integer;
  f1, f2: Text;

begin
  Assign(f1, date.in);
  Reset(f1);
  Read(f1, a, b, c);
  Close(f1);
  if a > b then begin
    max := a; min := b
  end
  else begin
    max := b; min := a
  end;
  if max > c then begin
    if min     else begin
      mid := min; min := c
    end
  end
  else begin
    mid := max; max := c
  end;
  writeln(Меньшее=, min, среднее=, mid, большее=, max);
  Assign(f2, date.out);
  Rewrite(f2);
  Write(f2, min, , mid, , max);
  Close(f2)
end.