不是闰年的程序

var a:integer;
begin
readln(a);
if (a mod 4=0) then begin
if (a mod 100=0) then begin
if (a mod 400=0) then begin
writeln('run');
end else begin
writeln('ping');
end;
end else begin
writeln('run');
end else begin
writeln('ping');
end;
readln;(这个是指停顿！)
end.

var a:longint;
begin
readln(a);
if(a mod 400=0)or((a mod 4=0)and(a mod 100<>0)
then writeln('run')
else writeln('ping');
end.