Описать процедуру SortInc3(A,B, C), меняющую содержимое переменных A, B, C таким образом, чтобы их значения оказались упорядоченными по возрастанию (A, B,C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры упорядочить по возрастанию два данных набора из трех чисел: (A1, B1, C1) и (A2, B2, C2).

Procedure SwapInc(var a, b: real);
begin
  a := a + b;
  b := a - b;
  a := a - b;
end;

procedure SortInc3(var a,b,c: real);
begin
  if a > b then SwapInc(a,b);
  if b > c then SwapInc(b,c);
  if a > b then SwapInc(a,b);
end;

var a,b,c: real; i: integer;
begin
  for i := 1 to 2 do begin
    write (a, i, =); readln(a);
    write (b, i, =); readln(b);
    write (c, i, =); readln(c);
    SortInc3(a, b, c);
    writeln(a, , b, , c);
  end;
end.