Uses graphabc; begin var a, b, c: real; c : = 0; read(a); for b : = 1 / 1 downto 1 / a * 2 do begin if (b mod 2 = 0) then begin c : = c - b; end; if (b mod 2 = 1) then begin c : = c + b; end; end; print(c); end. выдает ошибку "ожидался порядковый тип" в цикле for, 7 строчка. исправить!