Pascal. Задача 2-4

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

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

Решение

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

◄▲►