Написать программу, ожидающую от пользователя число (номер года) и выводящую информацию о том, високосный этот год или нет

В григорианском календаре високосным является:

- год, номер которого делится нацело на 400

- год, номер которого делится на 4, но не делится на 100

Программа на паскале:

var n: integer;

begin

read (n);

if (n mod 400 = 0) or (n mod 4 = 0) and (n mod 100 > 0)

then writeln (n, ' год високосный')

else writeln (n, ' год невисокосный');

end.