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