Program while_3_al_oszthato;
var i:byte;
begin
     while i<=100 do
     begin
      write(i:4);
      i:=i+3
     end;
     readln
end.