Вдвумерном массиве а(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 m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

 

end.

переведём это число в десятичную систему отсчёта: 6*7*7*7+3*7*7+1*7+7*1=2219.

теперь переведём это число в двочную систему:

2219: 2=1109 1

1109: 2=554 1

554: 2=277 0

277: 2=138 1

138: 2=69 0

69: 2=34 1

34: 2=17 0

17: 2=8 1

8: 2=4 0

4: 2=2 0

2: 2=1 0

1: 2=0 1

значит число в двоичном виде: 100010101011