Write a Pascal program: determine if the year is a leap year.

Any year that is a multiple of 4 is a leap year.

program year;

var
yr: integer;

begin
write (‘Enter the number of the current year:’);
readln (yr);
if yr mod 4 = 0 then // check the condition that this number is a multiple of 4.
writeln (‘This year is a leap year.’)
else
writeln (‘This year is not a leap year.’)
end.



One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.