Создать программу в ABC Pascal(с помощью строк сделать): Ввести строку состоящюю из различных символов и определить: 1) произведение цифр входяящих в эту строку(произведение может быть большим)ж 2) сумму цифр входящих в эту стр...

Program str;  Uses crt; Var   s:string;   i,p,sum:integer; Begin               P:=1;               Sum:=0;               Readln(s);               For i:=1 to length(s) do                     Begin                 If s[i] in ['0'..'9'] then                                                               Begin                                                                           p:=p*(ord(s[i])-ord('0'));                                                                                         sum:=sum+(ord(s[i])-ord('0'));                                                             End;                     End;      Writeln('Сумма = ',sum,' ','Произведение = ',p); End.