---

{: text;Процедура вывода результатов}
procedure Vivod_rezultatov(x, y: Mas; n, variantNum: integer);
var
  i: integer;
  yras, otkl: real;
begin
  writeln;
  writeln('                 Лабораторная работа');
  writeln('        Интерполирование по формулам Лагранжа');
  writeln('      Выполнил студент гр.320751 Точилкин В.А Вариант №', variantNum);
  writeln;

  writeln('------------------------------------------------------------------');
  writeln('|  №  |     X     |   Yтабл   |   Yрасч   |     Отклонение       |');
  writeln('------------------------------------------------------------------');

  for i := 1 to n do
  begin
    yras := Lagrange(x[i], x, y, n);
    otkl := abs(y[i] - yras);

    writeln('|', i:4, ' |',
            x[i]:10:2, ' |',
            y[i]:10:2, ' |',
            yras:10:2, ' |',
            otkl:20:4, ' |');
  end;

  writeln('------------------------------------------------------------------');
end;

begin
  Vvod_dannih(x, y, n, variantNum, fname);
  Vivod_rezultatov(x, y, n, variantNum);
  readln;
end.