Вариант 1
Составить тремя Используя 3 вида циклов) алгоритм вычисления произведения 5 чисел, вводимых с клавиатуры.​

var

a : real;

sum : real;

i : integer;

begin

for i := 1 to 5 do

begin

readln(a);

sum := sum + a; //первый

end;

writeln(sum);

i := 1;

sum := 0;

while i <= 5 do

begin

readln(a);

sum := sum + a;

i += 1;

end;

writeln(sum); //второй

i := 1;

sum := 0;

repeat

readln(a);

sum := sum + a;

i += 1;

until i > 5;

writeln(sum); //третий

end.