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

Я думаю, что на Паскале.Год високосный, если- делится на 4 нацело, но не делится на 100 (2004, 2008, 2012 - високосные; 1700, 1900, 2100, 2200, 1800 - невисокосные)- делится на 400 нацело (2000, 2400, 2800, 1600, 1200 - високосные)vara:longint;beginread(a); {Считываем номер года}if ((a mod 4 = 0) and (a mod 100 <> 0)) or (a mod 400 = 0) then  write('високосный')else  write('невисокосный')end.