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

var a,b,i,bug:integer;s:string;begin;readln(a);str(a,s);b:=1;for i:=1 to length(s) dobegin;val(s[i],a,bug);if a>7 then b:=b*a;end;writeln(b);end.