Вычислить таблицу значений функции U - Free Pascal

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

Прошу помочь с решение задачи.Очень нужна ещё блок-схема.Застрял как раз на стадии её построения.Прошу прощение,что картинкой.

Решение задачи: «Вычислить таблицу значений функции U»

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

function min(a, b: Real): Real;
begin
  if b<a then min:=b else min:=a;
end;
function v(x, y: Real): Real;
var t: Real;
begin
  t:=min(exp(1/3*ln(x+y)),sqr(x)+sqr(y));
  if x/y=0 then v:=t else v:=min(Cos(x/y),t);
end;
const
  bx=0.0; ex=1.0; hx=0.6; by=1.0; ey=2.0; hy=0.7; W=6; D=1;
var
  x, y: Real;
  dx, dy: Boolean;
begin
  { выводим заголовки колонок }
  Write('y\x':W); x:=bx; dx:=True;
  repeat
    Write(x:W:D); x:=x+hx;
    if dx and (x>=ex) then begin
      x:=ex; dx:=False;
    end;
  until x>ex;
  WriteLn;
  { выводим таблицу значений }
  y:=by; dy:=True;
  repeat
    Write(y:W:D); x:=bx; dx:=True;
    repeat
      Write(v(x,y):W:D); x:=x+hx;
      if dx and (x>=ex) then begin
        x:=ex; dx:=False;
      end;
    until x>ex;
    WriteLn; y:=y+hy;
    if dy and (y>=ey) then begin
      y:=ey; dy:=False;
    end;
  until y>ey;
end.

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

Функция min принимает два аргумента типа Real и возвращает минимальное значение из них.
Функция v принимает два аргумента типа Real и возвращает значение функции U.
Константы bx, ex, hx, by, ey, hy, W, D определяют параметры таблицы значений функции U.
Переменные x, y, dx, dy используются для вычисления и вывода таблицы значений.
В цикле с помощью Write выводятся заголовки колонок таблицы значений.
В цикле с помощью Write выводятся значения функции U в каждой ячейке таблицы.
После каждой строки таблицы выводится символ Ln для перехода на следующую строку.
Параметры dx и dy используются для контроля переполнения колонок и строк таблицы.
Значения x и y увеличиваются на hx и hy соответственно после каждой итерации цикла.
Если dx и x больше ex, то x устанавливается равным ex и dx устанавливается в False.
Если dy и y больше ey, то y устанавливается равным ey и dy устанавливается в False.
Циклы повторяются до тех пор, пока x и y не превысят ex и ey соответственно.
Значение функции U вычисляется с помощью функции v и выводится на экран.
Значения x и y увеличиваются на hx и hy соответственно после каждой итерации цикла.
Если dx и x больше ex, то x устанавливается равным ex и dx устанавливается в False.
Если dy и y больше ey, то y устанавливается равным ey и dy устанавливается в False.
Циклы повторяются до тех пор, пока x и y не превысят ex и ey соответственно.
Значение функции U вычисляется с помощью функции v и выводится на экран.
Значения x и y увеличиваются на hx и hy соответственно после каждой итерации цикла.
Если dx и x больше ex, то x устанавливается равным ex и dx устанавливается в False.
Если dy и y больше ey, то y устанавливается равным ey и dy устанавливается в False.
Циклы повторяются до тех пор, пока x и y не превысят ex и ey соответственно.
Значение функции U вычисляется с помощью функции v и выводится на экран.