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

1
var i:integer;
begin
for i:=100 to 200 do
      if i mod 5=0 then write(i,' ')
end.

2
var i,n:integer;
begin
for i:=1 to 100 do
if 100 mod i=0 then n:=n+1;
write('Общее количество делителей 100, включая 1 и само число: ',n)
end.

Если 1 и само число 100 не учитывать, то третья строка сверху должна иметь вид:
for i:=2 to 99 do