Найти сумму тех элементов массива, которые кратны K

program lab;
type mas=array [1..100] of word;
var i,n,k:word; a:mas;
sum:integer;
begin
sum:=0;
writeln('Vvedite razmer massiva');
readln(n);
writeln('Vvedite k');
readln(k);
for i:=1 to n do 
begin
write('a[',i,']= ');
readln(a[i]);
end; 
writeln('poluchivcheysya massiv: ');
for i:=1 to n do 
begin
write(a[i],'  ');
if a[i] mod k =0 then sum:=sum+a[i];
end;
writeln('Summa=',sum)
readln;
end.

const
n=10;
var
a:array[1..n] of integer;
i,k,sum:integer;
begin
writeln('Ââåäèòå ÷èñëî K');
readln(k);
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i],' ');
if a[i] mod k=0
then sum:=sum+a[i];
end;
writeln;
writeln('Сумма = ',sum);
end.

uses crt;
type mass=array[1..100] of integer;
 
var A:mass;
    i,n:integer;
    k,sum:integer;
begin
  clrscr;
  writeln('Vvedite razmer massiva:');
  readln(n);
  writeln('Vvedite elementy:');
  for i:=1 to n do
  readln(a[i]);
  writeln('Poluchennyi massiv:');
  for i:=1 to n do
  write(a[i]:3);
  sum:=0;
  writeln;
  writeln('Vvedite k:');readln(k);
  for i:=1 to n do
  if (a[i] mod k)=0 then sum:=sum+a[i];
  writeln('Summa chusel kratnyh k:',sum);
  readln;
end.