var
a: integer;
begin
readln(a);
if(a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then
writeln('Год високосный')
else
writeln('Год не високосный');
end.
<span>Готовый кроссворд по информатике - на тему "Носители информации"</span>
Получится квадрат
Тут все легко просто представьте это в уме и все получится))