13.Ввести a и b (

1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
 if (i mod a0) and (i mod b0) 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 a>0 then pol:=pol+1;
 if aend; 
if pol>otr then write(Положительных больше); 
if otr>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.