пусть введенный интервал будет
B и C,где B<C
var a,b,c,i:longint;
begin
read(b,c);
for i:=b to c do
if i mod a=0 then write(i);
end.
