Вычислите сумму всех элементов массива,исключая элементы кратные 5.На языке Паскаль.

Program n1; var a: array[1..10] of integer; i: integer; sum: real; begin randomize; sum:=0; for i:=1 to 10 do begin a[i]:=random(21)-10; write(a[i],' '); if a[i] mod 5<>0 then sum:=sum+a[i]; end; writeln; write(sum); end.