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

[Зайка]

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

[klem4]

Вот разбирайся. Это с предусловием

uses crt;

var
  p, n: Integer;
begin
  clrscr;

  write('n = '); readln(n);

  P := 1;

  while (n <> 0) do begin
    P := P * n;
    write('n = '); readln(n);
  end;

  writeln('P = ', P); 

  readln;
end.

[Зайка]

Да чего мне разбираться я всё равно ничего не понимаю!!! Я решить то пытаюсь но у меня ничего не получается