сделайте пожалуйста ))))

в чем прикол, что нужно

типа сумма чисел кратных к?

ага

Program z1;
var k, z, s: integer;
  a: array [1..10] of integer;
begin
write('введи число K '); readln(k);
for z := 1 to 10 do
  begin
    write('Введи a[',z,']='); readln(a[z]);
  end;
  s := 0;
  for z := 1 to 10 do
    if a[z] mod k = 0 then s := s + a[z];
  writeln('Сумма частей кратных K = ', s);  
end. 

Буду писать ток те строчки где пусто
 for z:= 1 to 10 do
for z:= 1 to 10 do
if a[z] mod k=0 then s:=s+1;
writeln ('сумма чисел кратных К одинаково',s);