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

В григорианском календаре високосным является:
- год, номер которого делится нацело на 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.