Складіть програму яка перевіряє, чи є рік високосним. для користувача передбачте відповідне сповіщення

Var
    y: integer;

begin
    read(y);
    writeln((y mod 400 = 0) or ((y mod 4 = 0) and (y mod 100 <> 0)));
end.