Code

uses crt;
var i,n,k,x,count,max,s,e,idx: integer;
var a,storage,start,endl: array[1..1000000] of integer;
begin
    clrscr;
    count:=0; x:=1; max:=0;idx:=0;
    write('Enter n: ');
    readln(n);
    write('Enter k: ');
    readln(k);
    for i:=1 to n do
    begin
        write('Enter a[',i,']: ');
        readln(a[i]);
    end;
    for i:=1 to n do
    begin
        if ((a[i] mod k) = 0) and (count=0) then
        begin
            start[x] := i;
            count:=count+1;
        end;
        if ((a[i] mod k) = 0) and (count<>0) then count:=count+1 else
        begin
            storage[x]:=count-1;
            endl[x] := i-1;
            x:=x+1;
            count:=0;
        end;
    end;
    for i:=1 to x do
    begin
        if storage[i] > max then
        begin
            max := storage[i];
            idx:=i;
        end;
    end;
    for i:=start[idx] to endl[idx] do writeln(a[i]);
    readln;
end.

Note

+ Hơi dài (41 dòng) và có lẽ sẽ hơi khó hiểu :))

+ Test vài cái thấy đúng, bạn test thêm nha