program lab3;

{$APPTYPE CONSOLE}

//Для PascalABC закомментированы некоторые строки
//uses
  //SysUtils, Windows; 

//Объявление переменных
var xs, ys : array[1..20] of integer;
var n, i, num, sum : integer;
var avg : real;


begin
  //setConsoleCP(1251); 
  //setConsoleOutputCP(1251);       
  writeln('Число точек (n):'); // Ввод исходных
  readln(n);
  writeln('Абсциссы и ординаты (x, y)');
  for i := 1 to n do begin
    read(xs[i]);
    read(ys[i]);
  end;
  for i := 0 to 60 do write('-'); // Вывод исходных
  writeln;
  readln;
  writeln('Исходные данные:');
  write('Число точек (n): ');
  writeln(n);
  writeln('Абсциссы и ординаты(x, y):');
  for i := 1 to n do begin
    write(xs[i]:3);
    write(' ');
    write(ys[i]:3);
    writeln;
  end;
  //writeln;
  for i := 0 to 60 do write('-');
  writeln; // Конец вывода исх
  for i := 1 to n do begin // Вычисление num и sum в соответствии с алгоритмом
    if (xs[i] > 0) and (ys[i] > 0) then
      num := num + 1
    else
      sum := sum + ys[i];
  end;
  writeln('Результат:'); // Начало вывода "результатов"
  write('num: ');
  writeln(num:2);
  //write('sum: ');
  //writeln(sum:4)
  if (num = n) then
    writeln('Невозможно найти среднее значение ординат (avg)') // При n = num (2)
  else begin
    avg := sum / (n - num); // В принципе можно обойтись и без этой переменной
    write('avg: ');
    writeln(avg:7:3);
  end;
  write('PRESS ENTER TO QUIT');
  readln;
end.