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

writeln('Введите количество элементов в массиве');readln(n);for i:=1 to n dobeginwriteln('Введите элемент массива');readln (A[i]); end;Sum:=0;for i:=1 to n doif a[i]>0 thenSum:=Sum+a[i];Writeln('Сумма положительных элементов = ' Sum)