Написать программу на паскале: определить является ли год високосном

Любой год, номер которого кратен 4, является високосным.

program year;

var

yr: integer;

begin

write ('Введите номер текущего года: ');

readln (yr);

if yr mod 4 = 0 then / / проверка условия, что данный номер кратен 4.

writeln ('Данный год является високосным.')

else

writeln ('Данный год не является високосным.')

end.