pleeaseee heellpp С клавиатуры вводится текст содержащий цифры( любой текст придумать надо) . Определить произведение цифр меньших 4

var s:string; i,p,n,code:integer;beginwriteln('Text:');readln(s);p:=1;for i:=1 to length(s) do if s[i] in ['0'..'3'] then  begin   val(s[i],n,code);   p:=p*n;   end;writeln('p=',p);end.