Получить и вывести на экран произведение действительных чисел - Pascal ABC

Формулировка задачи:

Даны действительные числа Известно, что .Получить и вывести на экран , где - последнее положительное число из всех введённых. Окончание ввода - отрицательное число - в вычислениях не участвует.

Решение задачи: «Получить и вывести на экран произведение действительных чисел»

Листинг программы

var a1,a2,a,p:real;
begin
repeat
writeln('Введите 2 положительных числа');
readln(a1,a2);
until(a1>0)and(a2>0);
p:=a1*a2;
writeln('Вводите положительные числа, окончание ввода отрицательное число');
repeat
 repeat
  readln(a);
 until a<>0;
if a>0 then p:=p*a;
until a<0;
write('Произведение=',p);
end.

Объяснение кода листинга программы

Создаются переменные a1, a2, a и p типа real.
В цикле repeat-until пользователю предлагается ввести два положительных числа.
Числа считываются в переменные a1 и a2.
Проверяется, что введенные числа положительны.
Вычисляется произведение p чисел a1 и a2.
В цикле repeat-until пользователю предлагается ввести положительное число.
Число считывается в переменную a.
Проверяется, что введенное число не равно нулю.
Если число положительно, то произведение p умножается на это число.
Цикл продолжается до тех пор, пока введенное число не станет отрицательным.
Выводится сообщение с произведением p.