Дано двамассива q (n) и r (n). Найти сумму элементов массива q; произведение элементов…

CONST N=10; varq,r,y: array[1… N] of integer; s,i,p: integer; begins: =0; p: =1; for i: =1 to N do beginwrite ('q[',i,'='); readln (q[i]); s: =s+q[i]; write ('r[',i,'='); readln (r[i]); p: =p*r[i]; end; for i: =1 to N do beginy[i]: =q[i]+5*r[i]; write (y[i],'); end; writeln (s,p); end.