Возможно ли переделать код этой программы так, чтобы обойтись без функции? - Turbo Pascal

Формулировка задачи:

Здравствуйте Возможно ли переделать код этой программы так, чтобы обойтись без функции?

uses Crt;
var x: real;
function f(x:real):real;
begin
   if x<2 then f:= ln(sqr(x-2)) + sqrt(x+3);
   if x>2 then f:= exp(6-2*x) + 2*cos(x-3)*sqr(cos(x-3));
end;
 
BEGIN
   clrscr;
   x:= 1;
   repeat
      if (x<1.9) or (x>2.1) then
         begin
            writeln('f(',x:0:1,') =  ',f(x):0:4);
            x:= x + 0.2;
         end
      else
         begin
            writeln('f(',x:0:1,') =  ','Неопределено');
            x:= x + 0.2;
         end;
 
   until x > 3.1;
   readln
END.

Решение задачи: «Возможно ли переделать код этой программы так, чтобы обойтись без функции?»

Листинг программы

uses
  Crt;
 
var
  x, f: real;
 
begin
  clrscr;
  x := 1;
  repeat
    if (x < 1.9) or (x > 2.1) then
    begin
      { Вычисляем значение функции: }
      if x < 2 then f := ln(sqr(x - 2)) + sqrt(x + 3)
        else
      if x > 2 then f := exp(6 - 2 * x) + 2 * cos(x - 3) * sqr(cos(x - 3));
      { Выводим значение: }
      writeln('f(', x:0:1, ') =  ', f:0:4);
      x := x + 0.2
    end
      else
    begin
      writeln('f(', x:0:1, ') =  ', 'Неопределено');
      x := x + 0.2;
    end   
  until x > 3.1;
  readln
end.

Объяснение кода листинга программы

В программе используется функция ln, которая вычисляет натуральный логарифм числа.
Функция sqr возводит число в квадрат.
Функция cos вычисляет синус числа.
Функция exp вычисляет экспоненту числа.
Программа использует условный оператор if для определения значения переменной f в зависимости от значения переменной x.
Программа использует операторы присваивания и арифметические операции для изменения значения переменной x.
Программа использует оператор вывода writeln для вывода значения переменной f на экран.
Программа использует оператор чтения readln для чтения значения переменной x с клавиатуры.