{
  Programa para a ordenacao de tres inteiros.
}

program ordena;
var
  a, b, c: integer;
   
begin  
   writeln ('Programa para a ordenacao de tres inteiros a, b, c');
   writeln;
   write('Entre com o valor de a: ');
   read (a);
   write('Entre com o valor de b: ');
   read(b);
   write('Entre com o valor de c: ');
   read(c);

   write ('Valores ordenados: ');
   
   if (a <= b) and (b <= c) then             { a contem o menor valor} 
      if (b <= c) then
	 writeln (a, ' ', b,' ', c, ' (a, b, c)')
      else 
	 writeln (a, ' ', c,' ', b, ' (a, c, b)')
      else
	 if (b <= c) then                    { b contem o menor valor} 
	    if (a <= c) then
	       writeln (b, ' ', a, ' ', c, ' (b, a, c)')
	    else 
	       writeln (b, ' ', c, ' ', a, ' (b, c, a)')
	 else                                { c contem o menor valor} 
	    if (a <= b) then
	       writeln (c, ' ', a, ' ', b, ' (c, a, b)')
	    else
	       writeln (c, ' ', b, ' ', a, ' (c, b, a)');		
end.