Алгоритм для вычисления значений функции f(x) при любых значениях аргументов

VAR G,X,F,H:REAL;
    BEGIN
         WRITE('Ввести X=');
              READLN(X);
                         if(x<0)THEN
                         F:=G;
                         if(x>1)THEN
                         G:=2*X+1
                         else
                         G:=5*x;
 
                         if (x<5)THEN
                         H:=10*x-1
                         else
                         H:=x+1;
         WRITE('ВЫВОД F=');
       WRITE(F:2:1);
       READLN;
    END.

var x, f: double;
begin
  write('x = ');
  readln(x);
  if x < 0
    then f := 5 * x
    else if x < 5
      then f := 10 * x - 1
      else f := x + 1;
  write('f(x) = ', f);
  readln
end.

  if x < 0
    then if x > 1
      then f := 2 * x + 1
      else f := 5 * x
    else if x < 5
      then f := 10 * x - 1
      else f := x + 1;

function g(x: double): double;
begin
  if x > 1
    then g := 2 * x + 1
    else g := 5 * x
end;
 
function h(x: double): double;
begin
  if x < 5
    then h := 10 * x - 1
    else h := x + 1
end;
 
function f(x: double): double;
begin
  if x < 0
    then f := g(x)
    else f := h(x)
end;
 
var x: double;
begin
  write('x = ');
  readln(x);
  write('f(x) = ', f(x));
  readln
end.

var x, g, h, f: double;
begin
  write('x = ');
  readln(x);
  if x > 1
    then g := 2 * x + 1
    else g := 5 * x;
  if x < 5
    then h := 10 * x - 1
    else h := x + 1;
  if x < 0
    then f := g
    else f := h;
  write('f(x) = ', f);
  readln
end.