var n,i:longint;b:boolean;beginreadln(n);if odd(n) then
begin
b:=false;i:=1;
while (20) then b:=true;
if b then writeln('Yes') else writeln('No');
end;end.请大家参考。（编程初学者）
var n,i:longint;b:boolean;beginreadln(n);if odd(n) then
begin
b:=false;i:=1;
while (20) then b:=true;
if b then writeln('Yes') else writeln('No');
end;end.
