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!