Pascal. Задача 2-4

Пользователь вводит год. Вывести сообщение, является ли год високосным.

Примечание: Номер года кратный 100, но не кратный 400 не является високосным.

Решение

var
  a : integer;
begin
  readln(a);
// В условии нет нужды заключать в скобки конъюнкцию, так как она по приоритету должна выполниться первой if (a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then writeln('Год високосный') else writeln('Год не високосный'); end.