Смотрю вы тут задачи с циклами решаите помогите мне тоже!, Цикл с предусловием Опции

[Зайка]

помогите please решить небольшую задачку.Нужно написать программу, находящую произведение всех чисел,вводимых с клавиатуры.Программа заканчивает своё выполнение и выводит результат при вводе 0

[мисс_граффити]

1. произведение надо считать внутри цикла.
2. убери

writeln('Введите число:');
readln(x);

до цикла - этот кусочек должен быть только в цикле
3. в начале программы сделай s:=1
4. until x=0