Viết chương trình nhập vào 1 day số N số nguyên (N <=250) từ bàn phím. Nhập số K, đếm và tính tổng các phần tử số lẻ là ước của K trong dãy số và đưa kết quả ra màn hình

program bt;
uses crt;
var A:array[1..1000] of integer;
    n,i,k,T,d:integer;
begin
 clrscr;
 readln(n,k);
 for i:=1 to n do read(A[i]);
 for i:=1 to n do if (A[i]<=k)and(k mod A[i]=0)and(A[i] mod 2 <> 0) then
  begin
   inc(d);
   T:=T+A[i];
  end;
 writeln('So uoc le cua day: ',d);
 writeln('Tong uoc le cua day: ',T);
 readln;
 readln;
end.

uses crt;
var s,n,k,i:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('Nhap N,K (N<=250) ');readln(n,k);
   for i:=1 to n do 
      begin 
         write('a[',i,']=');readln(a[i]);
         if (a[i] mod 2=1)and(k mod a[i]=0) then inc(s,a[i]);  
      end;  
   writeln(s);
readln
end.