Количество прямоугольников

program fff;
 
var
  a, b, c,d, s, p, n,k,g: int64;
  l, i,j,k1,max: int64;
 
begin
  readln(a, b, c, d);
  n := 0;
  k1:=trunc(sqrt(b));
  g:=d div 2-1;
if k1<=g then max:=k1 else max:=g;
  for l := 1 to max do
    for k := l  to d div 2-1 do
    begin
      s := l * k;
       p := (l + k) * 2;
         if (s >= a) and (s <= b) and (p >= c) and (p <= d) then begin
         n := n + 1;
      end;
           end;
    
  writeln(n);
 
end.

begin
  var a, b, c, d: int64;
  Readln(a, b, c, d);
  
  var g := d div 2 - 1;
  
//  if b <= g*g then
//    max := trunc(sqrt(b)) else
//    max := g;
  var max := b<=g*g ? trunc(sqrt(b)) : g; // ?: это короткая запись if-then-else
  
  var n := 0;
  for var l := 1 to max do
    for var k := l to d div 2 - 1 do
    begin
      var s := l * k;
      var p := (l + k) * 2;
      if s.InRange(a,b) and p.InRange(c,d) then
        n += 1;
    end;
  
  n.Println;
end.

begin
  var a,b, c,d: int64;
  Readln( a,b, c,d );
  
  var max_w_sq := Min(
    d, Sqr( b div 2 - 1 )
  );
  
  var min_pp := (a+1) div 2;
  var max_pp := b div 2;
  
  var n := 0;
  
  var w := 1;
  repeat
    
    var min_h := Max(
      min_pp-w,
      (c-1) div w + 1
    );
    var max_h := Min(
      max_pp-w,
      d div w
    );
    if max_h>=min_h then n += max_h-min_h+1;
    
    w += 1;
  until w*w > max_w_sq;
  
  n.Println;
end.

var
  minS, maxS, minP, maxP, squareSideMax, minWP, maxWP, minWS, maxWS, n: int64;
 
begin
  readln(minS, maxS, minP, maxP);//Считываем ограничения
  squareSideMax := trunc(sqrt(maxS));//Считаем наибольшую возможную высоту фигуры
  
  for var i := 1 to squareSideMax do//Перебираем все значения высоты
  begin
    //Параметры ширины относительно периметра
    minWP:=((minP-2*i) shr 1)+1;//Кстати, неплохая страховка от ультратонких прямоугольников в ответе
    maxWP:=(maxP-2*i) shr 1;
    //Параметры ширины относительно площади
    minWS:=minS div i;//Предполагается, что минимальная площадь - целое число
    maxWS:=maxS div i;
    if minWP<i then minWP:=i;//Перебираем только прямоугольники с основанием >= высоты
    n += min(maxWP, maxWS)-max(minWP, minWS)+1;//Вычитаем из минимального максимума максимальный минимум :)
  end;
 
  writeln(n);
  
end.

var
  minS, maxS, minP, maxP, squareSideMax, minWP, maxWP, minWS, maxWS, n: int64;
 
begin
  readln(minS, maxS, minP, maxP);//Считываем ограничения
  squareSideMax := trunc(sqrt(maxS));//Считаем наибольшую возможную высоту фигуры
  
  for var i := 1 to min(squareSideMax, maxP shr 2) do//Перебираем все значения высоты
  begin
    //Параметры ширины относительно периметра
    minWP:=((minP-2*i) shr 1)+1;//Кстати, неплохая страховка от ультратонких прямоугольников в ответе
    maxWP:=(maxP-2*i) shr 1;
    //Параметры ширины относительно площади
    minWS:=minS div i;//Предполагается, что минимальная площадь - целое число
    maxWS:=maxS div i;
    if minWP<i then minWP:=i;//Перебираем только прямоугольники с основанием >= высоты
    n += min(maxWP, maxWS)-max(minWP, minWS)+1;//Вычитаем из минимального максимума максимальный минимум :)
  end;
 
  writeln(n);
  
end.

begin
  var a,b, c,d: integer; // если число от 1 до 10 - int64 это перебор. Только на 32-битных системах медленнее будет
  Readln( c,d, a,b ); // ну типа исправил
  
  // квадрат максимальной ширины
  // Больше "sqrt(d)" нет смысла проверять, потому что "d/x", где "x>sqrt(d)" вернёт число "<sqrt(d)"
  // И больше "b div 2 - 1" нет смысла проверять, потому что если высота 1 (минимум) - ширина
  //   будет как раз "b div 2 - 1". Если высота больше - для того же периметра ширина должна быть меньше
  var max_w_sq := Min(
    d, Sqr( b div 2 - 1 )
  );
  
  // мин и макс полупериметры
  var min_pp := (a+1) div 2; // +1, потому что если минимальный периметр 5 (нечётое) - полупериметр может быть только 3, но не 2.
  var max_pp := b div 2;
  
  // счётчик результата
  var n := 0;
  
  // ширина
  var w := 1;
  repeat
    
    var min_h := Max(
      min_pp-w,       // минимальная высота исходя из периметра
      (c-1) div w + 1 // минимальная высота исходя из площади
    );
    if min_h<w then min_h := w; // без этого - могут получатся значения 1x3 и 3x1. А с этой строчкой 3x1 откинет
    
    var max_h := Min(
      max_pp-w, // максимальная высота исходя из периметра
      d div w   // максимальная высота исходя из площади
    );
    
    // добавляем к результату только если число подходящих высот положительное
    if max_h>=min_h then n += max_h-min_h+1;
    
    // для дебага
//    for var h := min_h to max_h do
//      Writeln($'{w}x{h}');
    
    w += 1;
  until w*w > max_w_sq;
  
  n.Println;
end.

minWP:=((minP-2*i) shr 1)+1;//Кстати, неплохая страховка от ультратонких прямоугольников в ответе
maxWP:=(maxP-2*i) shr 1;

    minWP:=ceil((minP-2*i) / 2);
    maxWP:=(maxP-2*i) shr 1;