Среди натуральных чисел, меньших некоторого n, вычислить сумму чисел…

uses crt; var a: array[1… 1000] of integer; i,n,sum: integer; beginwrite ('Введите число: '); read (n); for i: =1 to n-1 do if (i mod 3=0) and (i mod 5<>0) then sum: =sum+i; write (sum); end.