Сделал программу, рабоает все правильно, все условия выполняются…

Простейшая задачка) uses crt; var A: array [1… 10] of integer; //массив лучше задать изначальноi,B,C: integer; beginwriteln ('Введите числа В и С'); read (b); read (c); writeln ('Изначальный массив; 'for i=1 to 10 do beginA[i]: =random (20); // случайно до 20write (A[i],', '); end; writeln; writeln ('Окончательный массив '; for i=1 to 10 do beginif A[i] mod 2=1 then A[i]: =A[i]-C else A[i]: =A[i]+B; write (A[i],', '); end; end. Вроде без ошибок)