Algoritmo para ler duas variáveis inteiras e trocar o seu conteúdo.

//Faça um algoritmo para ler duas variáveis inteiras e trocar o seu conteúdo.

program trocar_numero;

uses crt;

var num1,num2,auxiliar:integer;

begin

writeln('informe o primeiro numero');

readln(num1);

writeln('informe o segundo numero');

readln(num2);

auxiliar:=num1;

num1:=num2;

num2:=auxiliar;

writeln('numero1 =',num1);

writeln('numero2 =',num2);

readkey;

end.