Дан массив целых чисел А(10). Отыскать сумму частей массива ,кратных Х

program zz1;
const n = 10; // задаем количество чисел в массиве
var i, s, x, y:integer; // задаем переменные целого типа
a:array [1..n] of integer;
begin
writeln(введите х и у );
read(x,y) ;
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
a[i]:=random(51);
for i:=1 to n do // выводим приобретенный массив на экран
write(a[i], );
writeln; // перебегаем на новейшую строчку для вывода ответа
for i:=1 to n do // организуем цикл, в котором переберем все числа массива
if (a[i] mod x = 0)and(a[i] mod y = 0) then s:=s+a[i];
writeln( сумма элементов = ,s); // выводим ответ
end.