Дан номер года . Определить является ли он высокосным. Сделать блок-схему и программу

Question

Дан номер года . Определить является ли он высокосным. Сделать блок-схему и программу

Answer 1

Program gt;
var n:longint;
begin
readln(n);
case n of
1..10000: if(n mod 400=0)or((n mod 4=0)and(n mod 100<>0))then writeln('YEs') else
writeln('NO');
end;
end.