Algoritmo para ler dois números inteiros e escrever o maior.

//Faça um algoritmo para ler dois números inteiros e escrever o maior.

program o_maior_numero;

uses crt;

var num1,num2:integer;

begin

writeln('escreva A') ;

readln(num1);

writeln('escreva B');

readln(num2);

if(num1>num2) then

begin

writeln('O numero A eh o maior, A= ',num1);

end

else

begin

if (num1<num2) then

begin

writeln(' O numero B eh o maior, B= ',num2);

end

else

begin

writeln('O numero A e B sao iguais, A e B sao= ',num2);

end;

end;

readkey;

end.