13. Ввести a и b (<100) и напечатать все числа от 1 до 100, кроме кратных a или b.

14. Найти, сколько чисел от a до b делятся на 7 или 9 (но не на 7 и 9 одновременно).

15. C клавиатуры вводятся 10 целых чисел. Определить, каких чисел больше: положительных или отрицательных.

16. Напечатать в одну строку все числа от a до b, дважды повторяя числа, кратные 3 или 7.

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 a<0 then otr:=otr+1

end;

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.