Описать процедуру 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.