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

Program;
var a,sum,p,i:integer;
Begin
sum:=0;
p:=1;
for i:=1 to 10 do
begin;
read(a);
sum:=sum+a;
p:=p*a;
end;
writeln(sum,p);
End.

Написал на Паскале