В интервале [10;20] поменять местами четные и нечетные значения pascal
Vari:byte;begin for i := 11 to 19 do if odd(i) then write(i, ' ',i-1,' ');end. Если я правильно понял задание..
там где vari отступи от i то есть: var i