Ejemplo sacando año bisiesto Turbo pascal

En este ejemplo de "pascal" se muestra como verificar si x año es bisiesto o no.
para el cual solo deberemos introducir el valor de algun numero que quieras saber.
¿Ques es un año bisiesto?
un año que tiene x dia de mas

Aqui el codigo:

Program P3AE4 (input,output);

uses

 crt; 

Var

 anyo: Integer;

Begin

     writeln('Ingrese el año:');

  readln(anyo);            

  if ((((anyo mod 100) <> 0) and ((anyo mod 4)=0)) or ((anyo mod 400)=0)) Then

      begin

                writeln('El año es bisieto');

    

        

   end

    

    else

    begin

                writeln('El año no es bisieto');     

    end;

   

  readkey;

end.

Descargar código:

link

Turbo Pascal