Задача. Год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400. Например 1700,1800,1900-не високосные, а 2000 високосный. Дано натуральное число n. Определить, является ли високосным год с таким номером? Решить на паскале, уровень 8 класса!

program leap_year;

var n: integer;

begin

writeln ('Введите номер года');

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.