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

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.