Viết chương trình nhập từ bàn phím số nguyên N (N<250) dãy số gồm N số nguyên và một số nguyên K ( K >0 ) viết ra màn hình dãy số tương ứng là kết quả

uses crt;
var i,n,k:longint; a:array[1..100000]of longint;
begin
clrscr;
   write(‘n(n<250) ,k=’);readln(n,k);
   for i:=1 to n Do 
      begin
          write(‘a[‘,i,’]=’);readln(A[i]);
      end;
   for i:=1 to n do write(a[i] div k,’ ‘);
readln
end.