Algoritmo para ler dois números inteiros e escrevê-los em ordem crescente.

//Faça um algoritmo para ler dois números inteiros e escrevê-los em ordem crescente.

program numero_ordem;

var num1,num2,x:integer;

begin

writeln('informe A');

readln(num1);

writeln('informe B');

readln(num2);

writeln;

if(num1>num2)then

begin

x:=num1;

num1:=num2;

num2:=x

end;

write('Os valores em ordem sao => ');

writeln(num1,' ; ',num2);

readln;

end.