Вквадратной матрице найти сумму нечётных элементов

Program pr; uses crt; var mas: array[1..1000, 1..1000] of integer; n,i,j,sum: integer; begin writeln('введите размер матрицы n*n'); write('n = '); readln(n); if (n> 1000) or (n< 1)   then    writeln('ошибка,  указанные  значения  выходят  за  пределы  матрицы')    else      begin            writeln('введите элементы матрицы');             sum: =0;         for i: =1 to n do            for j: =1 to n do                begin                  readln(mas[i,j]);                     if (mas[i,j] mod 2 < > 0)                   then sum: =sum+mas[i,j];                   end;               writeln();           writeln('исходная матрица');           for i: =1 to n do              begin                      for j: =1 to n do                      begin                          write(mas[i,j], ' ');                         end;                     writeln();                 end;                   writeln();           writeln('сумма нечетных элементов = ',sum);             end; readln; end.

2)program nah;

  var s: string;

begin

s: = 'рэки,горы и ';     (присвоение значения)

writeln (s);                               (вывод)

delete (s, 5,6);                     (удаление из строки s начиная с 5-го символа 6) символа)

writeln(s);                           (вывод результата)

end. 

  решение будет выглядеть так

  рэки, горы и

рэки и  

 

 

прости что не решила  

 

program xxx;

    var i, n : integer;

              a, s : real;

                    b : array [1..20] of real;

begin

  writeln('введите число а=');

  readln(a);

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива b: ');

  for i: =1 to n do

        readln(b[i]);

  writeln('исходный массив b: ');

  for i: =1 to n do

        writeln(b[i]);

  s: =0;

  for i: =1 to n do

      if b[i] > a then s: =s+b[i];

  writeln('сумма элементов =', s);

  readln

end.