1)вывести все натуральные числа от 100 до 200 кратные 5
2) подсчитать общее кол-во делителей числа 100

1var i:integer;beginfor i:=100 to 200 do      if i mod 5=0 then write(i,' ')end.2var i,n:integer;beginfor i:=1 to 100 doif 100 mod i=0 then n:=n+1;write('Общее количество делителей 100, включая 1 и само число: ',n)end.Если 1 и само число 100 не учитывать, то третья строка сверху должна иметь вид:for i:=2 to 99 do