Срочно!!!! Решите 2 Вариант и последнее задание!

Ответ:

program multiple;

var

 N, P: Real;

begin

 P := 1;

 WriteLn ('Введете числа: ');

 repeat

   ReadLn (N);

   if N <> 0 then

     P := P * N;

 until N = 0;

 WriteLn ('Произведение = ', P :15 :5);

 ReadLn;

end.