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

Var   S:string;   i:integer;   Sum:real;   C:Byte;BeginSum:=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.