Написать программу: вводятся число до тех пор пока не введен 5. Найти произведение чисел не равных нулю. Ребята очень срочно

Var prod,temp:real;

begin

   prod:=1;

   repeat

      readln(temp);

      if (temp=5) then break;

      if (temp<>0) then prod := prod * temp;

   until (2*2=5);

   writeln(prod);

end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.