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.

cHJvZ3JhbSBDb25kaWNpb25hbDsKdXNlcyBDcnQ7CiAKICAgdmFyIFgsIFkgOiBJbnRlZ2VyOwogCiAgIGJlZ2luCiAgICAgV3JpdGVsbiAoJ0VudHJlIGNvbSBkb2lzIE7Dum1lcm9zOicpOyB7IE1vc3RyYSBuYSB0ZWxhIGEgbWVuc2FnZW19CiAgICAgUmVhZGxuIChYLCBZKTsgeyBMw6ogb3MgZG9pcyBuw7ptZXJvcyB9CiAgICAgSWYgKFggPSBZKSBUaGVuIHtDb25kacOnw6NvIC0gU0UgWCBmb3IgaWd1YWwgYSBZfQogICAgIEJlZ2luICB7SU5JQ0lPIC0gUmVwYXJlIGFiYWl4byBxdWUgZXhpc3RlIGR1YXMgaW5zdHJ1w6fDtWVzLCBkb2lzIGNvbWFuZG9zIFdyaXRlbG4sIHBvciBpc3NvIGVzdMOjbyBlbnRyZSBCRUdJTiBlIEVORH0KICAgICAgIFdyaXRlbG4gKCdYIMOpIGlndWFsIHF1ZSBZJyk7CiAgICAgICBXcml0ZWxuICgnTyBWYWxvciBkZSBYIMOpID0nLCBYKTsKICAgICBFbmQ7IHtGSU19CiAgIGVuZC4=