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

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.