Найдите сумму положительных элементов заданного массива, содержащего 5 чисел

vara: array [1..5] of integer;s, i: integer;beginfor i:=1 to 5 dobeginwrite('Введите значение: ');read(a[i]);if a[i]>0 then s:=s+a[i];end;writeln('Сумма положительных членов массива: ', s);end.