Дан массив из 5 чисел,имя массива х,вычислить сумму элементов массива,произведение и найти частное от деления произведения на сумму.На экран вывести результаты(сумму,произведение и частное).Помогите пожалуйста,срочно!

var x:array[1..5] of integer;an:real;pr,sum,i:integer;begin;pr:=1;for i:=1 to 5 doreadln(x[i]);for i:=1 to 5 dosum:=sum+x[i];for i:=1 to 5 dopr:=pr*x[i];an:=pr/sum;writeln('Сумма:',sum);writeln('Произведение:',pr);writeln('Частное:',an);end.