Сделфи 7. составить программу вычисления функции y=f(x) для заданного значения аргумента x f(x)=tg 2/3 x^2-ln|3x-5|+8.3. f(x)=x^7+xdiv2+xmod5+e^5x. f(x)=ln5x+x^5sinx^3+tgx^4.

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
uses GraphABC;
begin
  Pen.Width:=3;
  // 0
  DrawRectangle(20,20,70,120);
  // 1
  Line(90,70,140,20);
  Line(140,20,140,120);
  // 2
  MoveTo(160,20);
  LineTo(210,20);
  LineTo(210,70);
  LineTo(160,120);
  LineTo(210,120);
  // 3
  MoveTo(230,20);
  LineTo(280,20);
  LineTo(230,70);
  LineTo(280,70);
  LineTo(230,120);
  // 4
  MoveTo(300,20);
  LineTo(300,70);
  LineTo(350,70);
  Line(350,20,350,120);
  // 5
  MoveTo(70,140);
  LineTo(20,140);
  LineTo(20,190);
  LineTo(70,190);
  LineTo(70,240);
  LineTo(20,240);
  // 6
  Line(90,190,140,140);
  DrawRectangle(90,190,140,240);
  // 7
  MoveTo(160,140);
  LineTo(210,140);
  LineTo(160,190);
  LineTo(160,240);
  // 8
  DrawRectangle(230,140,280,240);
  Line(230,190,280,190);
  // 9
  DrawRectangle(300,140,350,190);
  Line(350,190,300,240)
end.

Блок схемы не очень момню поэтому заменил блоки тэгами. Надеюсь, понятно.

<блок начало> Начало
<блок ввода данных> Ввести А, B </блок>
<блок действия> C:=(A+B)/2 </блок>
<блок дествия> D:=2*A*B</блок>
<блок проверки условия> A<b?</блок>
<если да>
<блок действия> A:=C</блок>
<блок дествия>B:=D</блок>
</если>
<если нет>
<блок действия> B:=C</блок>
<блок дествия>A:=D</блок>
</если>
<блок вывода>Вывести A,B<блок вывода>
<блок конца>Конец </блок>