Дано натуральное число. Определить произведение его цифр больших 7

строку c:=c+s; замените на строку c:=c*s;

и строку c:=0; замените на строку c:=1;

program lol (input, output);var a, n, b, p,s, m:integer;c:real;beginread (n);a:=n;b:=0;c:=0;p:=1;while a <> 0 dobegina:=a div 10;b:=b+1;end;while b <> 0 dobeginp:=1;for m:=1 to b dop:=p*10;s:=(n mod p) div (p div 10);if s > 7 thenc:=c+s;b:=b-1;end;writeln (c);end.