Task

var
  x: integer;

begin
  x := 1;
  while x <= 6 do
  begin
    writeln(x);
    x := x + 2;
  end;
end.