Ответ:у тебя наверное комп старый у меня было такое и пришлось новый покупать
Объяснение:
===== PascalABC.NET =====
begin
Range(1582, 3000)
.Where(y -> (y mod 100 = 0) and (y mod 400 <> 0))
.Print
end.