високосный год информатика

Я думаю, что на Паскале.
Год високосный, если
- делится на 4 нацело, но не делится на 100 (2004, 2008, 2012 - високосные; 1700, 1900, 2100, 2200, 1800 - невисокосные)
- делится на 400 нацело (2000, 2400, 2800, 1600, 1200 - високосные)

var
a:longint;
begin
read(a); Считываем номер года
if ((a mod 4 = 0) and (a mod 100 lt;gt; 0)) or (a mod 400 = 0) then
  write('високосный')
else
  write('невисокосный')
end.