Var f,f1,otladka: text; m,n,i,j,c: integer; ext: string; begin assign(f,'chess.in'); assign(f1,'chess.out'); assign(otladka,'отладка.log'); reset(f); rewrite(f1); rewrite(otladka); read(f,m,n,i,j,c); if (m*n mod 2=0) then begin writeln(otladka,'поле делится на 2'); ext: ='equal' end else writeln(otladka,'поле не делится на 2'); begin if(c=0) then writeln(otladka,'клетка (j; i) - черная'); if(j+i mod 2=0) then begin writeln(otladka,'j+i делится на 2'); ext: ='black' end else begin ext: ='white'; writeln(otladka,'j+i не делится на 2') end else begin writeln(otladka,'клетка (j; i) - черная'); if(j+i mod 2=0) then writeln(otladka,'j+i делится на 2'); ext: ='white' else writeln(otladka,'j+i не делится на 2'); ext: ='black'; end; end; write(f1,ext); close(f); close(f1); close(otladka); end. что тут не правильно? выдает ошибку на 36 строке: встречено 'else', а ожидалось '; ', если ставлю перед else ; , пишет: встречено 'else', а ожидался оператор
