Укажите наименьшее число N, при вводе которого в результате работы алгоритма выводится на экран сначала 3, а потом 7.

var N, a, b : integer;
begin
readln\(N\);
a := 0; b := 1;
while N > 0 do begin
a := a + 1;
b := b * \(N mod 10\);
N := N div 10;
end;
writeln\(a\); write\(b\);
end.