program lab2 APPTYPE CONSOLE uses SysUtils Windows var xs ys array 20

program lab2;

{$APPTYPE CONSOLE}

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);       // Input
  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; // Конец вывода исх
  num := 2;    // Присвоение значений переменным вывода
  sum := 10;
  writeln('Результат:'); // Начало вывода "результатов"
  write('num: ');
  writeln(num:2);
  //write('sum: ');
  //writeln(sum:4)
  if (num = n) then
    writeln('Невозможно найти среднее значение ординат (avg)')
  else begin
    avg := sum / (n - num);
    write('avg: ');
    writeln(avg:7:3);
  end;
  write('PRESS ENTER TO QUIT');
  readln;
end.