Вводить числа, пока не встретится 0. Найти их произведение, выкорыстовувати оператор while

[FYNZIK]

Вводить числа, пока не встретится 0. Найти их произведение, выкорыстовувати оператор while

[Streletz]

Наработки имеются?

[FYNZIK]

var
  n, pro: integer;

begin
  pro := 1;
  repeat
    write('Ââåäèòå ÷èñëî: ');
    readln(n);
    if n <> 0 then
      pro := pro * n;
  until (n = 0);
  write('pro=', pro);
end.

[Streletz]

Условие цикла неверное. Вообще цикл reapeat-until можно легко переделать в цикл while.

var
  n: integer;  
  r: real;
begin 
  n := 1;
  r := 1;
  while (n <> 0) do
  begin
    write('Введите число: ');
    readln(n);
    if (n <> 0) then
      r := r * n;
  end;
  write('Результат: ', r);
  readln;
end.

Приблизительно, как-то так. Дальше сами.