Написать программу: вводятся число до тех пор пока не введен 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.