Спо информатике "составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате даст произведение этих чисел (используя два вида циклов)" *на паскале*

Впаскале имеется три вида стандартных циклов: 1) цикл с параметром (цикл for to do 2) цикл с предусловием (цикл while do 3) цикл с постусловием (цикл repeat until программа с использованием цикла с параметром: program z1; var i: integer;     x,p: real; begin p: =1;     {задаем начальное значение произведения} for i: =1 to 10 do  {указываем количество повторений} begin     readln(x);           {вводим очередное число х}     p: =p*x;               {умножаем введенное число х к произведению р} end; writeln(p);             {вывод результата} end.  программа с использованием цикла с предусловием: program z1; var i: integer;     x,p: real; begin p: =1;       {задаем начальное значение произведения} i: =1;       {задаем начальное значение счетчика} while i< =10 do      {задаем условие повторения цикла: пока i< =10} begin     readln(x);           {вводим очередное число х}     p: =p*x;             {умножаем введенное число х к произведению р}     i: =i+1;               {увеличиваем счетчик i  на единицу} end; writeln(p);           {вывод результата} end. программа с использованием цикла с постусловием: program z1; var i: integer;     x,p: real; begin p: =1;       {задаем начальное значение произведения} i: =1;       {задаем начальное значение счетчика} repeat            {повторять все указанные действия}     readln(x);     {вводим очередное число х}     p: =p*x;         {умножаем введенное число х к произведению р}     i: =i+1;           {увеличиваем счетчик i  на единицу} until i> 10;       {до тех пор, пока счетчик i не станет больше 10} writeln(p);       {вывод результата} end.

Ответ  а- это 5+5 значит если а= 10, то 10=5+5