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

Если н не делится на 4 то не високосный, если делится, то проверяем дальше, если н не делится на 100 то високосный, если же делится. проверяем дальше, если н не делится на 400 то не високосный, если н делится на 4000 то високосный

programm LeapYear;var y: integer;begin  readln(y);  if y/4=int(y/4) then  begin    if (y/100=int(y/100))and(y/400<>int(y/400)) then      writeln('Не високосный') else      writeln('\Високосный';)  end  else writeln('Не високосный')end;