var s:string;
a,b,i,proiz,sum,kl:integer;
Begin
readln(s);
b:=length(s);
for i:=1 to b do
begin
val(a,s[i],kl);
if a mod 5 =0 then proiz:=proiz*a;
if a mod 2 = 0 then sum:=sum+a;
end;
writeln(proiz);
writeln(sum);
End.
Объяснение:
если программа будет ругаться на строчку где написан val, просто поменяй местами a и s[i]
