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

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