Високосный год

Pas.0022. Напишите программу, которая по заданному натуральному числу YEAR определяет и выводит является ли год високосным или нет.

Решение.

program ВисокосныйГод;

const
    YEAR = 2017;
    
var
    високосный : string;

begin

    if year mod 4 <> 0 then
        високосный := 'не'
    else if year mod 400 = 0 then
        високосный := ''
    else if year mod 100 = 0 then
        високосный := 'не'
    else
        високосный := '';

    write(year, ' — ' + високосный + 'високосный год.');
    
end.

Консоль.

2017 — невисокосный год.