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

Var     s: string;     i: integer;     sum: real;     c: byte; begin sum: =0; write('введите строку: '); readln(s); for i: = 1 to length(s) do       if ('1'< =s[i])and(s[i]< ='9') then             begin             case s[i] of             '1': c: =1;             '2': c: =2;             '3': c: =3;             '4': c: =4;             '5': c: =5;             '6': c: =6;             '7': c: =7;             '8': c: =8;             '9': c: =9;             end;             if i mod c = 0 then sum: =sum+c;             end; writeln('sum = ',sum); end.

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.