(**********************************************************************************)
(*  Problem: d070 "文文的求婚--續集 (0 尾版)" from 板橋高中          *)
(*  Language: PASCAL                                                              *)
(*  Result: OLE (line:381) on ZeroJudge                                           *)
(*  Author: annieicaros at 2010-05-06 22:44:50                                    *)
(**********************************************************************************)

var
a,b:integer;
begin
b:=0;
repeat
readln(a);
if a mod 4=0 then b:=2;
 if a mod 4<>0 then b:=0;
if a mod 400=0 then b:=1;
while b=2 do
begin
b:=1;
if a mod 100=0 then b:=0;
end;
case b of
0:writeln('a normal year');
1:writeln('a leap year');
end;
until a=0;
readln;
end.

-----------------------

 我自己沒有測試出這個問題啊