Pascal/Turbo Pascal - bisiesto

como hacer un programa que me diga si un año es bisiesto,
los años bisiestos son los que son multiplos de 4 y 400
pero no se como hacer la comparacion.

Hola Byron!
{es biciesto si es divisible por 400, o bien divisible por 4 pero no por 100}
biciesto:=(ano mod 400 = 0) or ((ano mod 4 = 0) and (ano mod 100 <> 0));

Un abrazo!

gracias calos t lo agradesco mucho