Написать программу на языке Pascal, для решения следующей функции:

Ну так берём и практически полностью переписываем.

function f(x: integer) : real;
begin
  if x >= -3.5 then
    result := 4 * x * x + 2 * x - 19
  else
    result := - 2 * x / (-4 * x + 1)
end;

// я подозреваю, что в условии во второй строчке именно x < -3.5, просто не пропечаталось