Файл 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 < c then mid : = c

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.