Определите количество информации в тексте, используя синтаксический подход: текст: дискретизация

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

4 клетки вниз и 7 вправо                                                                                                                           

видеокарта, монитор.   это

var m1,m2,v1,v2: real;

begin

  read(m1,m2,v1,v2);

  if m1/v1 > m2/v2 then writeln('pervoe')

  else writeln('vtoroje');

end.

var a,b: integer;

begin

  read(a,b);

  writeln('a delitel b - ', a mod b=0);

  writeln('b delitel a - ', b mod a=0);

end.