Resposta Exercício Pascal

Programa que recebe 3 números e imprime em ordem crescente:

Program ordemcrescente ;

var n1, n2, n3: integer;

Begin

writeln ('Digite o primeiro número: '); read (n1);

writeln ('Digite o segundo número: '); read (n2);

writeln ('Digite o terceiro número: '); read (n3);

if ((n1>n2) and (n1>n3) and (n2>n3)) then

writeln ('Os números na ordem são: ',n3,',',n2,',',n1)

else

if ((n1>n2) and (n1>n3) and (n3>n2)) then

writeln ('Os números na ordem são: ',n2,',',n3,',',n1)

else

if ((n2>n3) and (n2>n1) and (n3>n1)) then

writeln ('Os números na ordem são: ',n1,',',n3,',',n2)

else

if ((n2>n3) and (n2>n1) and (n1>n3)) then

writeln ('Os números na ordem são: ',n3,',',n1,',',n2)

else

if ((n3>n1) and (n3>n2) and (n1>n2)) then

writeln ('Os números na ordem são: ',n2,',',n1,',',n3)

else

if ((n3>n1) and (n3>n2) and (n2>n1)) then

writeln ('Os números na ordem são: ',n1,',',n2,',',n3);

End.