Заполните таблицу по образцу:

Const     n = 10; var     a: array[1..n,1..n] of real;     i,j: integer;     s: real; begin randomize; 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]: 6: 2,' ');               if j > i then s: =s+a[i,j]               end;       writeln       end; writeln('s = ',s); end.

Dim  k  as  integer  ' объявляем переменную sub prog_summa() dim s as long, i as long s  = 0 ' в  переменной  s накапливается  сумма простых чисел for  i=256  to 16384 '  цикл по всем числам, которые надо проверить       k=1 '  признак простого числа       prost(i) '  в функции проверяем, что число i простое       if k = 1 then s = s + i '  если i - простое, прибавляем его к s next  i print  s  ' выводим сумму s end sub function prost(x) dim  i  as long, q as long prost = 0 ' значение функции пока равно 0 q  = int(sqrt(x)) ' q=[√(x)] - предел проверки  числа  x на простоту for  i  = 2 to q       if int(x/i) = x/i then k=0 ' если х делится на i, то оно составное next  i if k = 1 then prost = x  ' если x простое, то функция равна x ' если x - составное, то функция остается равной 0 end function