На вход программе подаётся пять чисел, между которыми стоит знак '*'. Среди введённых чисел возможны числа, равные 0. Найдите произведение чисел без учёта нулей. То есть надо найти произведение всех чисел, отличных от 0. Гарантируется, что среди введённых чисел есть хотя бы одно, отличное от 0.

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.