program ct;

uses crt;

var x,n,i:integer;

begin clrscr;

   write('Nhap x va n: '); readln(x,n);

   if (x<=n) and (n<=1000) then

     for i:=1 to n do

       if i mod x=0 then write(i:5);

readln;

end.

Học tốt!

                         Bài mk nhé bạn ^~^

        Cho mk xin câu tlhn nhé bạn >ω<

                        Chúc bạn học tốt !

uses crt;
var x,n,i:longint;
begin
clrscr;
   repeat write('x=');readln(x); until(0<=x)and(x<=100);
   repeat write('N=');readln(N); until(x<=n)and(N<=1000);
   for i:=x to n do if i mod x=0 then writeln(i);
readln
end.uses crt;
var x,n,i:longint;
begin
clrscr;
   repeat write('x=');readln(x); until(0<=x)and(x<=100);
   repeat write('N=');readln(N); until(x<=n)and(N<=1000);
   for i:=x to n do if i mod x=0 then writeln(i);
readln
end.

Test: