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

Program;var a,sum,p,i:integer;Beginsum:=0;p:=1;for i:=1 to 10 dobegin;read(a);sum:=sum+a;p:=p*a;end;writeln(sum,p);End.Написал на Паскале