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

Составить блок-схему алгоритма и программу на Паскале для обработки массива из 15 чисел Х = (0.01; –3; 0; 1.25; –371; 0.5; –0.1; 1.2; –5; –172.3; 19783; –2.7; 43.51; 0; –0.02) при b=–3. Вычислить произведение и количество элементов, не равных нулю и больше b.

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.