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

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.

Буквы. ударные или безударные слоги.  сам знаки могут выглядеть как угодно, например, точка-тире.   на ум приходят пдд. напр, на светофоре знак красного человечка "стой", зеленого "иди" и т.д.

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите