Напишите программу(паскаль) нахождения суммы элементов массива А[1..15], кратных 5 и меньших 50. Массив заполняется произвольными числами в диапазоне да 100

Program n1; var a: array[1..15] of integer; sum,i: integer; begin randomize; write('исходный массив: '); sum:=0; for i:=1 to 15 do begin a[i]:=random(101); write(a[i],' '); if (a[i]<50) and (a[i] mod 5=0) then sum:=sum+a[i]; end; writeln; write('сумма: ',sum); end.