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

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

program year;

var
yr: integer;

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