Program p;
Vara,b,c,i,j,n : Integer;
BeginWriteln('введите три числа');Readln(a,b,c);
if a>b then if a>c then Writeln(a,c,b) else Writeln(c,a,b) else if c>b then Writeln(a,b,c) else Writeln(b,c,a);
Readln;End.
Program p;
Var
a,b,c,i,j,n : Integer;
Begin
Writeln('введите три числа');
Readln(a,b,c);
if a>b then if a>c then Writeln(a,c,b)
else Writeln(c,a,b)
else if c>b then Writeln(a,b,c)
else Writeln(b,c,a);
Readln;
End.