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

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;

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