Составьте программу на Языке Паскаль используя Массив найдите сумму положительных элементов массива

program massiv;var a: array[1..10] of integer;i,s: integer;beginfor i:=1 to 10 dobeginwrite ('Введите a[',i,']=');readln (a[i]);end;for i:=1 to 10 do beginif a[i]>0 then s:=s+a[i];end;writeln ('Сумма положительных элементов массива равна ',s);end.