Протобулировать функцию y=x-pi(число пи-3.14) на отрезке [0; 19] с шагом h=0.1*19, вывисте среднее арифмитическое всех отрицательных значений функции.

var
  x: real;
  
begin
  writeln('x|':6, 'y':5);
  while (x <= 19) do
  begin
    writeln(x:5, '|', x - Pi:5);
    x += 0.1 * 19;
  end;
end.