Pascal/Turbo Pascal - COMO CREAR UN PROGRAMA

POR FAVOR ALGUIEN ME PUEDE EMVIAR EL ATGORITMO EN TURBO PASCAL PARA VER QUE DADO UN NUMERO ENTERO NOS INDIQUE SI ES PAR O IMPAR

Fijate con este código:

program PAR_IMPAR;
var
num : integer;
begin
readln(num); { leemos el número }
if (num mod 2 = 0)then { si el resto al dividirlo por 2 es 0... }
write( ' Es un número PAR ' ) { escribimos que es PAR}
else { sino... }
write( ' Es un número IMPAR ' ); { escribimos que es IMPAR}
end.

Un abrazo. Atte. Carlos