Все , что есть. по информатике. плез : 3

Question

Информатика: Все , что есть. по информатике. плез : 3​

nadyamoroz03 · Accepted Answer

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.

Все , что есть. по информатике. плез : 3​

MOGZ ответил