Ответ:

var a, b, c, t: integer;

begin

readln(a, b, c);

if a > b then begin t:=a; a:=b; b:=t end;

if b > c then begin t:=b; b:=c; c:=t end;

if a > b then begin t:=b ;b:=a; a:=t end;

writeln(a, ' ', b, ' ', c);

end.