Дан одномерный массив из 5 элементов. Найти сумму всех положительных элементов массива. Начало такое var a: array[1..5]

var  a: array[1..5] of integer; // объявление массива.  i, s : integer; // объявление переменных целочисленного типа.begin   writeln(\'Введите пять целых чисел, для заполнения массива: \'); // вывод строки на экран.  for i := 1 to 5 do  // начало цикла из пяти шагов.  begin    readln(a[i]); // считываем элемент массива с номером i.    if a[i] >0 then  // если элемент положительный - считаем сумму.     s:=s + a[i];  end; writeln(\'Сумма положительных элементов массива равна : \', s); //вывод строки на экран.end.