в решение.
Постройте трассировочную таблицу выполнения программы Summa_1 для значения n = 3
в программе паскаль

Const
  n = 200;

var
  a: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  Writeln('Элементы массива, кратные трем:');
  s := 0;
  for i := 1 to n do
  begin
    a[i] := Random(301)-150;
    if (a[i] mod 3)=0 then Write(a[i],' ');
    if a[i]>0 then s:=s+a[i]
  end;
  Writeln;
  Writeln('Сумма положительных элементов равна ',s)
end.

Тестовое решение:
Элементы массива, кратные трем:
-144 27 -15 135 129 -114 33 66 -15 135 -3 105 -129 -6 -60 21 -108 -78 -123 93 -51 -60 -120 27 129 -33 -30 -66 -39 6 51 141 -75 -30 48 -90 87 -39 18 -45 144 -120 75 -111 6 72 -42 114 -27 120 -144 -120 96 135 -24 -9 141 -93 111 15
Сумма положительных элементов равна 7980

Всего существует 16 (ну лично я смогла только эти найти) вариантов форматирование слова.
1) Шрифт 1
2) Шрифт 2
3) Шрифт 1; полужирное
4) Шрифт 2; полужирное
5) Шрифт 1; полужирный; курсив
6) Шрифт 2; полужирный; курсив
7) Шрифт 1; полужирный; курсив; подчеркнутое
8) Шрифт 2; полужирный; курсив; подчеркнутое
9) Шрифт 1; курсив
10) Шрифт 2; курсив
11) Шрифт 1; курсив; подчеркнутое
12) Шрифт 2; курсив; подчеркнутое
13) Шрифт 1; подчеркнутое
14) Шрифт 2; подчеркнутое
15) Шрифт 1; полужирный; подчеркнутое
16) Шрифт 2; полужирный; подчеркнутое