Дан код программы нахождения суммы и произведения 10 вводимых с клавиатуры чисел.

[email protected] в категроии Информатика, вопрос открыт 30.05.2018 в 23:52

Вот он код:
Program qq;
var
i:integer;
S,p:real;
x:real;
begin
writeln('Введите 10 чисел:');
s:=0;
p:=1;
for i:= 1 to 10 do
begin
read(x);
s:= s+x;
p:= p*x;
end
writeln ('Сумма введенных чисел =',s);
writeln ('Произведение введеных чисел =',p);
end
!!! Надо изменить этот код (программу) , так чтобы на экран выводилась таблица из 5 строк для суммы и произведения числа вводимого с клавиатуры.
(т.е. для числа =7:
i=1 sum=7 pr=7
i=2 sum=14 pr=49


Делать надо на паскале!
Прошу помощи! Срочно!