из программы нужно составить функцию

program ex4;
var
s:string[10];
i,x,c,a:integer;
begin
writeln('vvedite ch');
readln(s);
a:=1;
for i:=1 to length(s) do
begin
val(s[i],x,c);
a:=a*x;
end;
a:=a*3;
writeln('utr proizv ',a);
end.

это программа которая ищёт утроенно произведение цифр в числе, введённом с клавиатуры
нужно оформить в виде функции, да так, чтобы число не вводилось с клавиатуры, а просматривались все числа от, например, 100 до 1000, и выводился только тот результат, который равен самому числу