program schrikkeljaar; uses wincrt;
var
   jaartal: integer;
   d4, d100, d400: boolean;
begin
   write('Geef een jaartal: ');
   read(jaartal);
   write('De bewering "', jaartal, ' is een schrikkeljaar" is: ');
   d4:=jaartal mod 4 =0;
   d100:=jaartal mod 100 =0;
   d400:=jaartal mod 400 =0;
   write(d4 and not d100 or d400)
end.