написать код программы, вычисляющей длину линии вертикального разреза фигуры

[KASATKA_AA]

помогите составить программу в паскале: Составить алгоритм и написать код программы, вычисляющей длину линии вертикального разреза фигуры y_razrez, значения площадей фигуры слева и справа от линии разреза s_left, s_right, по значениям аргумента x, введенным с консоли:
image118.jpg


_____
загружайте изображения на форум (через "расширенный режим" - "управление вложениями"
модератор.

[newerow1989]

const dx=0.01;
      a=-1;
      b=1;
var x,xt,y_razrez,s_left,s_right:real;
begin
  Write('x = ');Readln(x);
  y_razrez:=f1(x)-f2(x);
  Writeln('y_razrez = ',y_razrez:1:8);
  xt:=a-dx;
  s_left:=0;
  Repeat
     xt:=xt+dx;
     s_left:=s_left+dx*(f1(xt)-f2(xt));
  Until xt>=x;
  Writeln('s_left = ',s_left:1:8);
  s_right:=0;
  Repeat
     s_right:=s_right+dx*(f1(xt)-f2(xt));
     xt:=xt+dx;
  Until xt>=b;
  Writeln('s_right = ',s_right:1:8);
  Readln;
end.

[p51x]

Объявить и реализовать соответствующие функции