var
a, b, c, manji,
veci : integer;
ulaz, izlaz : Text;
begin
Assign(ulaz,
‘zad3.in’);
Assign(izlaz,
‘zad3.out’);
Reset(ulaz);
Rewrite(izlaz);
Read(ulaz, a, b, c);
manji := (a + b -
abs(a – b)) div 2;
veci := (a + b +
abs(a – b)) div 2;
a := manji; b :=
veci;
manji := (a + c -
abs(a – c)) div 2;
veci := (a + c +
abs(a – c)) div 2;
a := manji; c :=
veci;
manji := (b + c -
abs(b – c)) div 2;
veci := (b + c +
abs(b – c)) div 2;
b := manji; c :=
veci;
WriteLn(‘Sortirane
vrednosti : ‘,a,’,’,b,’,’c);
Close(ulaz);
Close(izlaz);
end.