Paskal-Cikly

[Kira]

очень элементарная задачка, но у меня возникла проблема.

Определить сколько отрицательных и кратных чисел в промежутке А, Б. А и Б вводит пользовател.

[RSLoader]

Не совсем понял вопрос: нужно найти количество кратных чисел чему? Если просто нужно найти количество делителей всех чисел, кроме отрицательных, в промежутке [a,b], то
можно это сделать так:

var
  a,b,i,j,krat,otric:integer;
begin
  write('Vvedite A => ');
  readln(a);
  write('Vvedite B => ');
  readln(b);
  otric:=0;
  krat:=0;
  for i:=a to b do
  begin
    if i<0 then inc(otric)
    else
    for j:=1 to i do
    if i mod j = 0 then inc(krat);
  end;
  writeln('Koli4estvo otricatelnih 4isel v promezhutke ot A do B: ',otric);
  writeln('Koli4estvo kratnih 4isel v promezhutke ot A do B:      ',krat);
  readln;
end.