Напишите все команды которые используются тут. var s, k: integer; begin s : = 3; for k : = 0 to 9 do begin if k mod 2=0 then s : = s + 3 ; writeln(k); end; writeln(s); end.

Немного теории. если число одновременно кратно a и b, то она кратно и их произведению, т.е. a x b. в нашем случае числа должны быть кратны 2х3=6. первое натуральное число, кратное 6, это 6. далее следуют 12, 18, сводится к нахождению суммы ряда 6+12+18++6*n, где n=1000, т.е. s=6+12+18++6000. это сумма арифметической прогрессии и она может быть найдена по формуле: среднее арифметическое такого ряда будет равно сумме, деленной на количество членов ряда n: теперь можно решить даже "в уме": avg=(6+6000)/2=3003, s=3003x1000=3003000. это будут контрольные значения для проверки работы программы. //pascalac.net 3.0, сборка 1066 const   n=1000; var   i: integer;   s: longint; begin   s: =0;   for i: =1 to 1000 do s: =s+6*i;   writeln('сумма=',s,', среднее арифметическое=',s/n) end. результат выполнения программы: сумма=3003000, среднее арифметическое=3003

что-то типа этого:

const n = 8, m = 8; var       a: array[1..n,1..m] of integer;       i, j, sum, product: integer;       isnotnull: boolean; begin      randomize;       writeln('случайная матрица: ');       for i: =1 to n do begin              for j: =1 to m do begin                      a[i,j] : = random(51) - 25;                       write(a[i,j]: 5);               end;               writeln;       end;       sum : = 0;       for i: =1 to n do              if a[i,n-i+1] < 0 then                      sum : = sum + a[i,n-i+1];       writeln('сумма отрицательных элементов побочной диагонали = ', sum);       product : = 1;       isnotnull : = false;       for i: =1 to n-1 do              for j: =2 to n do                      if (j > i) and (a[i,j] < > 0) then begin                              isnotnull : = true;                               product : = product * a[i,j];                       end;       if isnotnull              writeln('произведение ненулевых элементов в области выше главной диагонали = ', product)      else              writeln('ненулевых элементов в области выше главной диагонали нет.', product);       readln; end.