Задан массив Х целочисленных элементов (n=10) найти произведение элементов М и сумму элементов кратных К.значение элементов массива вывести на экран в табличном виде — Pascal(Паскаль)

Элементы кратные числам М и К. Введите через пробел 2 целых числа М и К:5:2.
Введите через интер элементы массива Х:
х[1]=2
х[2]=20
х[3]=27
х[4]=31
х[5]=28
х[6]=-3
х[7]=14
х[8]=2
х[9]=7
х[10]=5
Произведение элементов кратных 5 равно 100;
Сумма элементов кратных 2 равно 62

uses crt;
const
n=10;
var
x:array[1..n] of integer;
i,m,k,p,s:integer;
begin
clrscr;
writeln('Vvedite M i K');
readln(m,k);
for i:=1 to n do
 begin
  write('X[',i,']=');
  readln(x[i]);
 end;
p:=1; s:=0;
for i:=1 to n do
 begin
  if x[i] mod m=0 then p:=p*x[i];
  if x[i] mod k=0 then s:=s+x[i];
 end;
writeln('Proizv kratnih ',m,' =',p,', summa kratnih ',k,' =',s);
readln;
end.