Задача №1902. ???

const MaxN = 50000009;

var a, b, i, j, k: Longint;
  ok: Boolean;

BEGIN
  read (a, b);
  assert ((1 <= a) AND (a <= b) AND (b <= 50000000));
  if a = 1 then inc (a);
  k := 0;
  for i := a to b do begin
    ok := True;
    for j := 2 to i - 1 do
      if i mod j = 0 then begin
        ok := False;
        break;
      end;
    if ok then inc (k);
  end;
  writeln (k);
END.
Примеры
Входные данные
1 2
Выходные данные
1
Входные данные
2 3
Выходные данные
2
Входные данные
1 100
Выходные данные
25
Входные данные
98 98
Выходные данные
0
Входные данные
97 97
Выходные данные
1
Сдать: для сдачи задач необходимо войти в систему