Определить, високосный год или нет, в Pascal

С клавиатуры вводится год. Программа должна определять високосный это год или нет. Вывести на экран соответствующую надпись, а также количество дней в году.

Примеры выполнения программы

Введите год: 1913
Количество дней в году: 365
Это невисокосный год.

Введите год: 2012
Количество дней в году: 366
Это високосный год.

Программа на языке Паскаль

var
    year: word;

begin
    write('Введите год: ');
    readln(year);

    if year mod 4 = 0 then
        if (year mod 100 = 0) and (year mod 400 <> 0) then
            year := 365
        else
            year := 366
    else
        year := 365;

    writeln('Количество дней в году: ', year);

    if year = 365 then
        writeln('Это невисокосный год.')
    else
        writeln('Это високосный год.');
end.

В високосном годе 366 дней, тогда как в обычном 365. Високосными годами являются все года делящиеся нацело на 4 за исключением столетий, которые не делятся нацело на 400.

Алгоритм решения задачи: