Нарисуйте блок схему:
var N, product: longint;
digit: integer;
begin
readln(N);
product := N mod 10;
while N >= 10 do
begin
digit := N mod 10;
product := product*digit;
N := N div 10;
end;
writeln(product);
end.