Viết chương trình cho phép nhập vào 2 số nguyên dương N và K. Sau đó ghi ra màn hình đánh sách các số nguyên nhỏ hơn N và chia hết cho K

uses crt;

var n,k,i:longint; 

begin

clrscr;

write(‘Nhap n=’);readln(n);

write(‘Nhap k=’);readln(k);

for i:=1 to n-1 do 

if i mod k=0 then write(i,’  ‘);

readln;

end.