el anterior ejemplo era uso de variables , ahora un ejemplo de "IF" condicion "THEN" IF THEN" significa "SI ENTONCES" se utiliza para poder diferenciar entre 2 casos distintos de VERDADERO Y FALSO en donde le indicamos a la maquina q hacer en cada uno de ellos






program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var x:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
{es programa es para saber si un numero es par o impar y la forma mas facil es dividiendo entre 2 y observar su residuo, si es par la division sera exacta y su residuo sera 0 sino entonces es impar}
//***********inicia el programa*************
write('ingrese un numero ');
readln(x);
{hay 2 tipos de division la parte entera y la de residuo
ejemplo
***parte entera**** (7 div 2) es como resultado 3 por q 7 entre 2 da 3.5
*** residuo **** (7 mod 2) es como resultado 5 por q 7 entre 2 da 3.5 }
if ((x mod 2)=0) then {este es un operador logico quiere decir **ES (condicion) ENTONCES**}
begin {con la palabra begin empieza la condicion de VERDAD}
write('ES PAR');
end //con END indicamos que termino el caso verdadero
else //ELSE indica que de ser FALSO el programa iniciara otros comandos
begin //aqui empieza los comandos q indican el ELSE
write('NO ES PAR');
end; //con el END; con punto y coma decimos q finaliza el operador logico (IF THEN)

readln; //para q el programa espere que presionemos la tecla enter

end.