Скласти інформацію модель вимірювальних тіл фізикі і інформатики​

#include <iostream>

using namespace std;

int main () {

    int digit = 300;

    do {

        int sum = 0;

        int teiler = 1;

        while (teiler <= digit)

        {

            if (digit % teiler == 0)

                sum+=teiler;

            teiler++;

        }

        if(sum % 10 == 0)

        {

            cout << digit << endl;

        }

        digit++;

    } while (digit <= 600);

    return 0;

}

var

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

 n, m, i, j, jm: integer;

begin

 randomize;

 writeln('Введите количество строк и столбцов соответственно: ');

 readln(n, m);

 writeln('Сгенерированная матрица: ');

 for i := 1 to n do

 begin

   jm := 1;

   for j := 1 to m do

   begin

     a[i, j] := random(99);

     write(a[i, j]:4);

     if (i mod 2 = 0) and (a[i, jm] > a[i, j])

       then jm := j;

   end;

   if i mod 2 = 0 then write('  min=a[', i, ',', jm, ']=', a[i, jm]);

   writeln;

 end;

 readln;

end.