Дан массив целых чисел А (10)

var a: array [1… 10] of integer; sum, x, y, i: integer; begin sum: =0; writeln ('Введите X и Y'); readln (x, y); writeln ('Введите массив А (10) '); for i: =1 to 10 do read (a[i]); for i: =1 to 10 do if (a[i] mod x=0) and (a[i] mod y=0) then sum: =sum+a[i]; writeln ('Sum=', sum); end.