Código:
  
program Paises;
        var
        p1:integer;
        p2:integer;
        p3:integer;
        p4:integer;
        p5:integer;
        p6:integer;
        p7:integer;
        p8:integer;
        p9:integer;
        p10:integer;
        p11:integer;
        p12:integer;
        p13:integer;
        p14:integer;
begin
writeln('Habitantes:');
writeln('');    {Espacio en blanco}
p1:=15000;      {Argentina}
p2:=40000;      {Brasil}
p3:=30000;      {Bolivia}
p4:=80000;      {Peru}
p5:=123000;     {Paraguay}
p6:=698456;     {Uruguay}
p7:=236987;     {España}
p8:=2001789;    {Francia}
p9:=277788998;  {Mexico}
p10:=44878989;  {Italia}
p11:=225589;    {Suiza}
p12:=225589;    {Australia}
p13:=22697;     {Alemania}
p14:=2587789;   {China}
writeln('Argentina: ', p1);
writeln('Brasil: ', p2);
writeln('Bolivia: ', p3);
writeln('Peru: ', p4);
writeln('Paraguay: ', p5);
writeln('Uruguay: ', p6);
writeln('España: ', p7);
writeln('Francia: ', p8);
writeln('Mexico: ', p9);
writeln('Italia: ', p10);
writeln('Suiza: ', p11);
writeln('Australia: ', p12);
writeln('Alemania: ', p13);
writeln('China: ', p14);
readln;
end.
Como tendria que decir para que me ordene los que tienen mas habitantes?
Saludos!
 
  
 


