Где тут ошибка? program d; var a, b, c: integer; integer : nod ('m, n'); begin while m< > n do if m> n then m: =m-n else n: =n-m; nod: =m; end; begin write('a='); read(a); write('b='); read(b); write('c='); read(c); writeln; writeln('nod(a, b, c)=', nod(nod(a, b), c)); end. выдаёт ошибку program1.pas(3) : встречено ''nod'', а ожидалось ': '

Объявление NOD не верно. если это функция, то надо писать:

function NOD(n: integer; m: integer) : integer;

1. Примерно так учат писать программы в большинстве школ

var
  n,s:integer;

begin
  s:=0;
  repeat
    Read(n);
    if n<>0 then
      if (n mod 6=0) and (n mod 10=2) then s:=s+n
  until n=0;
  Writeln(s)
end.

Пример
16
42
18
132
94
18
0
174

Кроме этого, зачем-то требуют блок-схему  - приведена во вложении, выполнена по ГОСТ 19.701-90 (ISO 5807-85).

2. А вот так эту задачу можно решить в современном Паскале

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqIntegerWhile(t->t<>0)
      .Where(t->(t mod 6=0) and (t mod 10=2)).Sum.Println
end.

И блок-схема тут вообще не нужна: она ничего не даст.

Сравнение явно не в пользу школьного "образования" - учить, как выполнять работу двадцать минут вместо двух.

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив 9x6 ***');
  var a:=MatrRandom(9,6,-50,50); a.Println(4);
  Writeln(4*a.ColCount*'-');
  var kn:=a.Rows.SelectMany(x->x).Where(x->x<0).Count;
  var kp:=a.Rows.SelectMany(x->x).Where(x->x>0).Count;
  Writeln(kn,' отрицательных, ',kp,' положительных')
end.

Пример
*** Исходный массив 9x6 ***
 -47  37  23 -34 -33   0
 -17  -5  13  -9   0 -46
 -41  31  41 -30 -24  49
  39  50  13   4  19  14
 -17 -12 -24  22  -9 -44
 -27  17 -44 -35  -4  32
  26  -5  49  -7 -28 -25
 -15  -9  13  25 -26 -29
 -40 -24  -4  50  33 -45

31 отрицательных, 21 положительных