13.Ввести a и b (amp;lt;100) и напечатать все числа от 1

1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
 if (i mod alt;gt;0) and (i mod blt;gt;0) then write(i,' ')
 end.
2)var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
 if (i mod 7=0) xor (i mod 9=0) then k:=k+1; 
write(k) 
end.

3)var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do 
begin 
readln(a);
 if agt;0 then pol:=pol+1;
 if alt;0 then otr:=otr+1 
end; 
if polgt;otr then write('Положительных больше'); 
if otrgt;pol then write('Отрицательных больше')
end.
4) var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
 if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
end.