Задача. Год является високосным, если его номер кратен 4,однако из кратных 100 високосными являются лишь кратные 400.

program leap_year;var n: integer;beginwriteln(\'Введите номер года\');readln(n);if (n mod 4 = 0) and (n mod 100 <> 0) then writeln(\'Это високосный год\');if  (n mod 400 = 0) then writeln(\'Это високосный год\');if (n mod 100 = 0) and (n mod 400 <> 0) then writeln(\'Это не високосный год\');if n mod 4 <> 0 then writeln(\'Это не високосный год\')end.