Язык Pascal
Требуется определить, является ли данный год высокосным. (Напомним, что год является высокосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.)

Var
  n:integer;
  f:boolean;
begin
write(Введите год: );
readln(n);
f:=false;
if (n mod 4=0) and (n mod 100>0) then f:=true;
if  n mod 400=0 then f:=true;
if f=true then writeln(Это высокосный год) else writeln(Это не высокосный год)
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.