Составить блок-схему алгоритма и программу на Паскале для обработки массива из 15 чисел Х

Const n = 15; //количество элементов
var X : array[1..n] of Real = (0.01, -3, 0, 1.25, -371, 0.5, -0.1, 1.2, -5, -172.3, 19783, -2.7, 43.51, 0, -0.02);
pr, b : Real;
count, i : Integer;
begin
b:=-3;
pr:=1; //произведение
count:=0; //количество
for i:=1 to n do begin
if (X[i] <> 0) and (X[i] > b) then begin
pr:=pr*X[i];
count:=count+1;
end;
end;
writeln('Произведение элементов, не равных нулю и больших ',b:0:2,': ', pr:0:2);
writeln('Их количество: ', count);
end.