Какая последовательность символов не может служить именем в языке паскаль 1.mas 2.mas1 3.d2 4.2d

Ответ под номером 4

//pascalabc.net 3.1 сборка 1239 const       n = 10;       m = 10; var       i, j: integer;       a, b: array[1..n, 1..m] of integer;       f: boolean; begin       for i : = 1 to n do       begin               for j : = 1 to m do               begin                       a[i, j] : = random(50);                       write(a[i, j]: 3, ' ');               end;               writeln;       end;       writeln;             for i : = 1 to n do       begin               f : = false;               for j : = 1 to m do               begin                       if not f and (a[i, j] mod 2 = 1) then begin                               a[i, j] : = 2 * a[i, j];                               f : = true;                       end;                       write(a[i, j]: 3, ' ');               end;               writeln;       end; end.

Const       n = 12; var       i, p: integer;       a: array[1..n] of integer; begin       p : = 1;       for i : = 1 to n do       begin               a[i] : = random(150) - 100;               write(a[i], ' ');               if a[i] > 0 then p : = p * a[i];       end;       writeln;       writeln('p = ', p); end.