Pascal/Turbo Pascal - año bisiesto

Deseo saber como se hace un algoritmo para calcular el año bisiesto. Necesito ayuda urgente!!!

Es fácil

si el año es múltiplo de 100 (1900,2000) entonces debe de ser multiplo de 400 para que sea bisiesto
si no, si es multiplo de 4 es año bisiesto

if anio mod 100 then
if anio mod 400 then
bisiesto:=true;
else bisiesto:=false
else if anio mod 4 then bisiesto:=true
else bisiesto:=false;

: )