program ideone;

{$macro on}
{$define doit:=do begin}
{$define thenb:=then begin}
var
  i : integer;
begin
	(* your code goes here *)
  for i := 0 to 10 doit 
     if i and 1 <> 0 thenb 
       writeln(i);
      end;
  end;
end.