uses Crt;
var X, Y : Integer;
begin
Writeln ('Entre com dois Números:'); { Mostra na tela a mensagem}
Readln (X, Y); { Lê os dois números }
If (X = Y) Then {Condição - SE X for igual a Y}
Begin {INICIO - Repare abaixo que existe duas instruções, dois comandos Writeln, por isso estão entre BEGIN e END}
Writeln ('X é igual que Y');
Writeln ('O Valor de X é =', X);
End; {FIM}
end.