Algoritmo para ler dois números inteiros e informar se estes números são iguais ou diferentes

// Faça um algoritmo para ler dois números inteiros e informar se estes números são iguais ou diferentes

program dois_numeros_inteiros ;

var numero1, numero2:integer;

begin

writeln('digite o numero 1');

readln(numero1);

writeln('digite o numero 2');

readln(numero2);

if(numero1=numero2) then

begin

writeln('R: Os numeros sao iguais')

end

else

writeln('R: os numeros sao de diferentes');

readln;

end.