Составить программу вычисления,
A - сумма положительных элементов массива;
B – номер наименьшего элемента массива;
C - количество элементов массива кратных пяти.
Полученные значения элементов А,B,C,W вывести на печать.(Паскаль)

program z1;varmas: array[1..100] of integer;i,a,b,c,n,min: integer;begina:=0;min:=1000;c:=0;writeln('Введите количество элементов массива');readln(n);writeln('Введите элементы массива');for i:=1 to n dobeginread(mas[i]);if mas[i]>0 thena:=a+mas[i];if mas[i]<min thenbeginmin:=mas[i];b:=i;end;if mas[i] mod 5=0 thenc:=c+1;end;writeln('Сумма положительных элементов массива равна ',a);writeln('Номер наименьшего элемента массива равен ',b);writeln('Количество элементов массива, кратных пяти, равно ',c);end.