В интервале [10;20] поменять местами четные и нечетные значения pascal

Question

В интервале [10;20] поменять местами четные и нечетные значения pascal

Answer 1

Vari:byte;begin  for i := 11 to 19 do    if odd(i) then    write(i, ' ',i-1,' ');end.

Если я правильно понял задание..

Comments

там где vari отступи от i то есть: var i