program Condicional;
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.