30 БАЛЛОВ!!!
Вася написал такую функцию:

var s: integer;
begin
s := 1;
while n <> 0 do begin
s := s * (n mod 10);
n := n div 10;
end;
f := s;
end;

А затем вычислил значение f(1023), оно оказалось равным 0. Затем пришла Маша и заменила в его коде в двух строках число 10 на число 2. Чему теперь будет равно значение f(1023)? В ответе запишите одно целое число.