Procedure maxmin(var x: real; var y: real); var a: real; begin if (x<y) then begin a:=x; x:=y; y:=a; end; end; var a,b,c:real; begin writeln('Введите числа a,b,c: '); readln(a,b,c); if (a<b) then maxmin(a,b); if (b<c) then maxmin(b,c); writeln(a,' ',b,' ',c); readln; end.