Algoritmo para ler duas variáveis inteiras A e B e garantir que A e B fiquem em ordem crescente, ou seja, a variável A deverá armazenar o menor valor fornecido e a variável B o maior.

//Faça um algoritmo para ler duas variáveis inteiras A e B e garantir que A e B fiquem em ordem

//crescente, ou seja, a variável A deverá armazenar o menor valor fornecido e a variável B o maior.

program ordemCrescenteDeAaB;

uses crt;

var a,b,auxiliar:integer;

begin

writeln('escreva A') ;

readln(a);

writeln('escreva B');

readln(b);

if(a>b) then

begin

auxiliar:=a;

a:=b;

b:=auxiliar;

end else

begin

if(a<=b)then

a:=a;

b:=b;

end;

writeln('Na ordem A e B sao => ','a=',a,' ; ','b=' ,b) ;

readkey;

end.