program PointProcessing;
 
uses
  SysUtils;
 
const
  MAX_POINTS = 100; // Максимальное количество точек
 
var
  X: array[1..MAX_POINTS] of Double; // Массив абсцисс
  Y: array[1..MAX_POINTS] of Double; // Массив ординат
  n, i: Integer;
  count: Integer;
  sumDistances: Double;
  lastX, lastY: Double;
 
begin
  // Ввод количества точек
  Write('Введите количество точек (n): ');
  ReadLn(n);
 
  if (n < 1) or (n > MAX_POINTS) then
  begin
    WriteLn('Количество точек должно быть в диапазоне от 1 до ', MAX_POINTS);
    Exit;
  end;
 
  // Ввод координат точек
  for i := 1 to n do
  begin
    Write('Введите координаты точки ', i, ' (X', i, ', Y', i, '): ');
    Read(X[i], Y[i]);
  end;
 
  // Подсчет количества точек, ордината которых больше абсциссы
  count := 0;
  for i := 1 to n do
  begin
    if Y[i] > X[i] then
      Inc(count);
  end;
 
  // Вычисление расстояний от последней точки до остальных
  lastX := X[n];
  lastY := Y[n];
  sumDistances := 0;
 
  for i := 1 to n - 1 do
  begin
    sumDistances := sumDistances + Sqrt(Sqr(lastX - X[i]) + Sqr(lastY - Y[i]));
  end;
 
  // Вывод результатов
  WriteLn('Количество точек, ордината которых больше абсциссы: ', count);
  WriteLn('Сумма расстояний от последней точки до остальных: ', sumDistances:0:2);
end.

cHJvZ3JhbSBQb2ludFByb2Nlc3Npbmc7Cgp1c2VzCiAgU3lzVXRpbHM7Cgpjb25zdAogIE1BWF9QT0lOVFMgPSAxMDA7IC8vINCc0LDQutGB0LjQvNCw0LvRjNC90L7QtSDQutC+0LvQuNGH0LXRgdGC0LLQviDRgtC+0YfQtdC6Cgp2YXIKICBYOiBhcnJheVsxLi5NQVhfUE9JTlRTXSBvZiBEb3VibGU7IC8vINCc0LDRgdGB0LjQsiDQsNCx0YHRhtC40YHRgQogIFk6IGFycmF5WzEuLk1BWF9QT0lOVFNdIG9mIERvdWJsZTsgLy8g0JzQsNGB0YHQuNCyINC+0YDQtNC40L3QsNGCCiAgbiwgaTogSW50ZWdlcjsKICBjb3VudDogSW50ZWdlcjsKICBzdW1EaXN0YW5jZXM6IERvdWJsZTsKICBsYXN0WCwgbGFzdFk6IERvdWJsZTsKCmJlZ2luCiAgLy8g0JLQstC+0LQg0LrQvtC70LjRh9C10YHRgtCy0LAg0YLQvtGH0LXQugogIFdyaXRlKCfQktCy0LXQtNC40YLQtSDQutC+0LvQuNGH0LXRgdGC0LLQviDRgtC+0YfQtdC6IChuKTogJyk7CiAgUmVhZExuKG4pOwoKICBpZiAobiA8IDEpIG9yIChuID4gTUFYX1BPSU5UUykgdGhlbgogIGJlZ2luCiAgICBXcml0ZUxuKCfQmtC+0LvQuNGH0LXRgdGC0LLQviDRgtC+0YfQtdC6INC00L7Qu9C20L3QviDQsdGL0YLRjCDQsiDQtNC40LDQv9Cw0LfQvtC90LUg0L7RgiAxINC00L4gJywgTUFYX1BPSU5UUyk7CiAgICBFeGl0OwogIGVuZDsKCiAgLy8g0JLQstC+0LQg0LrQvtC+0YDQtNC40L3QsNGCINGC0L7Rh9C10LoKICBmb3IgaSA6PSAxIHRvIG4gZG8KICBiZWdpbgogICAgV3JpdGUoJ9CS0LLQtdC00LjRgtC1INC60L7QvtGA0LTQuNC90LDRgtGLINGC0L7Rh9C60LggJywgaSwgJyAoWCcsIGksICcsIFknLCBpLCAnKTogJyk7CiAgICBSZWFkKFhbaV0sIFlbaV0pOwogIGVuZDsKCiAgLy8g0J/QvtC00YHRh9C10YIg0LrQvtC70LjRh9C10YHRgtCy0LAg0YLQvtGH0LXQuiwg0L7RgNC00LjQvdCw0YLQsCDQutC+0YLQvtGA0YvRhSDQsdC+0LvRjNGI0LUg0LDQsdGB0YbQuNGB0YHRiwogIGNvdW50IDo9IDA7CiAgZm9yIGkgOj0gMSB0byBuIGRvCiAgYmVnaW4KICAgIGlmIFlbaV0gPiBYW2ldIHRoZW4KICAgICAgSW5jKGNvdW50KTsKICBlbmQ7CgogIC8vINCS0YvRh9C40YHQu9C10L3QuNC1INGA0LDRgdGB0YLQvtGP0L3QuNC5INC+0YIg0L/QvtGB0LvQtdC00L3QtdC5INGC0L7Rh9C60Lgg0LTQviDQvtGB0YLQsNC70YzQvdGL0YUKICBsYXN0WCA6PSBYW25dOwogIGxhc3RZIDo9IFlbbl07CiAgc3VtRGlzdGFuY2VzIDo9IDA7CgogIGZvciBpIDo9IDEgdG8gbiAtIDEgZG8KICBiZWdpbgogICAgc3VtRGlzdGFuY2VzIDo9IHN1bURpc3RhbmNlcyArIFNxcnQoU3FyKGxhc3RYIC0gWFtpXSkgKyBTcXIobGFzdFkgLSBZW2ldKSk7CiAgZW5kOwoKICAvLyDQktGL0LLQvtC0INGA0LXQt9GD0LvRjNGC0LDRgtC+0LIKICBXcml0ZUxuKCfQmtC+0LvQuNGH0LXRgdGC0LLQviDRgtC+0YfQtdC6LCDQvtGA0LTQuNC90LDRgtCwINC60L7RgtC+0YDRi9GFINCx0L7Qu9GM0YjQtSDQsNCx0YHRhtC40YHRgdGLOiAnLCBjb3VudCk7CiAgV3JpdGVMbign0KHRg9C80LzQsCDRgNCw0YHRgdGC0L7Rj9C90LjQuSDQvtGCINC/0L7RgdC70LXQtNC90LXQuSDRgtC+0YfQutC4INC00L4g0L7RgdGC0LDQu9GM0L3Ri9GFOiAnLCBzdW1EaXN0YW5jZXM6MDoyKTsKZW5kLg==