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

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

program year;

varyr: integer;

beginwrite ( \'Введите номер текущего года: \' );readln ( yr );if yr mod 4 = 0 then // проверка условия, что данный номер кратен 4.writeln ( \'Данный год является високосным.\' )elsewriteln ( \'Данный год не является високосным.\' )end.