помогите прописать множество

program lab3and;
uses crt;
i,k,l,m,n:integer;
begin
writeln('Ââåäèòå äèàïàçîí îò m äî n');
writeln('m=');
readln(m);
write('n= ');
readln(n);
writeln('Ââåäèòå äåëèòåëè k è l');
write('k= ');
readln(k);
write('l= ');
readln(l);
writeln('×èñëà, äåëÿùèåñÿ áåç îñòàòêà íà ',k,' è íà ',l);
for i:=m to n do
if (i mod k=0) and (i mod l=0) then writeln(i);
readln;
writeln('×èñëà, äåëÿùèåñÿ áåç îñòàòêà íà ',k,' èëè íà ',l);
for i:=m to n do
if (i mod k=0) or (i mod l=0) then writeln(i);
readln;
clrscr;
end.

НАДО ПРОПИСАТЬ МНОЖЕСТВО m и n от 1 до 100 помогите прописать!!!