O programa em Pascal Exemplo2 pede ao usuário para digitar dois números e, se ele digitar dois números diferentes, o programa mostra, na tela, o maior entre eles.
program Exemplo2; var a, b, x: real; begin writeln(‘Digite dois números’); readln(a, b); x := a; if (b > a) then x := b; writeln(x); end.