[EnumaElish]

Спасибо.
По почтальону получилось но не через for to do

Код:

var a,c:integer;
begin
c:=1; //если начинаем с 1 дома
readln(a); //вводим количество домов 
 repeat
  c:=c+2;
  writeln(c);
  until (c=a) or (c=a+1) or (c=a-1);
 if c=a then
   begin
    c:=a-1;
    writeln(c);
  end;
repeat
c:=c-2;
writeln(c);
until (c=1) or (c=0);
end