Сделать лабораторную работу

[Homakk]

Люди помогите пожалуйста зделать лабу, по теме Операторы ветвления.

F= a(x*x)-b; при x-1<0 и b-x  0
(x+1)!; при x-1>0 и b+x=0
x/c; в остальных случаях

[VIK_aka_TOR]

if (x - 1 < 0) and (b - x квадратик 0) then
   f := a * x * x - b
else
  if (x - 1 > 0) and (b + x = 0) then
    begin
      f:= 1;
        for i:= 2 to x + 1 do
           f := f * i;
    end
  else
     f := x/c;

поставишь только там свой "квадратик"... ну и переменные объявишь с вводом и выводом...
и собственно в след раз показывать свои наработки... или же придется платить денежку, если не захочешь ждать долго доброго "самаритянина" который напишет тебе код...