ребят вот не понимаю, что делать

[Cvyatoslav1997]

Дано целое положительное число, соответствующее номеру года. Напишите программу, позволяющую определить является ли введенные год високосным. Год является високосным, если его номер кратен 4, но из лет кратных 100, високосными считаются кратные 400. (Например, 1700, 1800 или 1900-не високосные годы, а 2000-високосный).

[Guagpro]

Сообщение от Cvyatoslav1997

Дано целое положительное число, соответствующее номеру года. Напишите программу, позволяющую определить является ли введенные год високосным. Год является високосным, если его номер кратен 4, но из лет кратных 100, високосными считаются кратные 400. (Например, 1700, 1800 или 1900-не високосные годы, а 2000-високосный).

var
i:integer;
begin
readln(i);
if (i mod 4 = 0) then
begin
if (i mod 100 = 0) then
begin
if (i mod 400 = 0) then 
writeln('Год високосный') 
else 
writeln('Год не високосный')
end
else
writeln('Год високосный');
end
else 
writeln('Год не високосный');
end.

[Sciv]

Guagpro, слишком сложно. Учитесь пользоваться логическими операторами.
Кроме того, у Вас ошибка: год високосный, если он делится без остатка на 4, но не делится на 100, либо если делится без остатка на 400.

Так проще и короче:

var i:integer;
begin
  readln(i);
  if ((i mod 4 = 0) and (i mod 100<>0)) or (i mod 400=0) then
    writeln('Год високосный') 
  else 
    writeln('Год не високосный')
end.