Составить программку для последовательного произведения вводимых с клавиатур целых чисел.Предугадать выход

Program umn; var a, S: integer; begin S:=1; a:=1; while alt;gt;0 do begin S:=S*a; write(Введите число ); readln(a); end; writeln(S); readln end. Используем оператор цикла с предусловием While, так как количество повторений заблаговременно не знаменито. аlt;gt;0 - условие продолжения цикла. В теле цикла первым действием выполняем умножение, но на первом шаге этот оператор сработает "вхолостую", чтоб после ввести число и сравнить его с нулем на следующем шаге цикла.