Я думаю, что на Паскале.
Год високосный, если
- делится на 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 <> 0)) or (a mod 400 = 0) then
write('високосный')
else
write('невисокосный')
end.