как сделать с циклом следущуюю задачу по информатике на языке паскаль.

var a,i,s,p:integer;
begin
s:=0;
p:=1;
for i:=1 to 10 do begin
read(a);
s:=s+a;
p:=p*a;
end;
writeln('Сумма ',s);
writeln('Произведение ',p);
end.

45 18 13 24 69 96 44 61 1 100
summa= 471 proizv = 449306237952000
==============
80 10 2 78 11 71 84 60 3 9
summa= 408 proizv = 13263554304000
==============
6 68 84 74 54 59 26 24 100 58
summa= 553 proizv = 2.92435117019136E+16
==============
82 27 11 96 47 20 88 22 26 40
summa= 459 proizv = 4.4249470746624E+15
==============
42 77 28 56 99 83 9 45 63 23
summa= 525 proizv = 2.44524719606429E+16
==============
15 55 72 4 74 8 39 42 67 35
summa= 411 proizv = 540287459712000
==============
61 89 12 69 87 57 92 97 25 4
summa= 593 proizv = 1.98931633292592E+16
==============
98 80 93 72 5 41 93 51 56 48
summa= 637 proizv = 1.37204311162061E+17
==============
31 98 59 34 3 5 91 97 56 36
summa= 510 proizv = 1.62672301681344E+15
==============
41 48 26 91 22 91 63 3 36 20
summa= 441 proizv = 1.26852259742208E+15
==============
40 70 71 37 1 18 55 18 79 41
summa= 430 proizv = 424557729288000
==============
95 47 66 79 49 58 43 50 55 3
summa= 545 proizv = 2.3471398541745E+16
==============
60 75 86 24 61 90 2 15 96 90
summa= 599 proizv = 1.3216898304E+16
==============
2 35 8 64 95 44 36 39 15 72
summa= 410 proizv = 227161718784000
==============
97 71 100 99 11 44 55 36 25 57
summa= 595 proizv = 9.31087923678E+16
==============
4 37 99 30 2 33 69 68 64 38
summa= 444 proizv = 331042439946240
==============
100 74 73 58 28 33 90 51 44 23
summa= 574 proizv = 1.34476916599872E+17
==============
80 8 17 6 6 48 65 83 40 76
summa= 429 proizv = 308345536512000
==============
95 31 5 80 28 58 69 80 80 81
summa= 607 proizv = 6.84298202112E+16
==============
55 85 7 100 61 95 9 13 82 80
summa= 587 proizv = 1.4555354814E+16
==============
37 4 12 3 55 15 5 72 34 52
summa= 289 proizv = 2797711488000
==============
75 88 28 65 5 71 86 94 28 96
summa= 636 proizv = 9.266148283392E+16
==============
15 60 99 5 88 28 59 59 50 92
summa= 555 proizv = 1.75772231712E+16
==============
94 99 17 57 76 50 99 31 20 44
summa= 587 proizv = 9.2544365558304E+16
==============
100 75 68 80 40 70 65 64 83 73
summa= 718 proizv = 2.8794694656E+18
==============