var a;

begin
  a:=1;
  do begin
    if (a%2)=1 then a:=a+2;
    if (a%2)=0 then a:=a+1;
  end;
  while a<30;
end.