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

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