Вдвумерном массиве а(4,4)определить сумму элементов меньших 7

Const     n = 4;     c = 7; var     a: array[1..n,1..n] of integer;     i,j: integer;     s: real; begin randomize; writeln('исходный массив: '); s: =0; for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               if a[i,j] < c then s: =s+a[i,j];               end;       writeln       end; writeln('s = ',s); end.

вот так понятней буде)) ну и более правильно, для

 

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.