Построить блок-схему алгоритма

const a=1; b=2;
var x: Real;
begin
  Write('x: '); ReadLn(x);
  if x<=a then
    if x<0 then WriteLn(1/Exp(-x)*Sin(x)-Abs(x))
    else WriteLn(Exp(x)*Sin(x)-Abs(x))
  else if x<b then WriteLn(Sin(x)/Cos(x)+Sqr(x)+Abs(x))
  else WriteLn(Sqr(Sqr(Sqr(x)))/x);
end.

var a,b,x,z:real;
begin
write('a='); //вводим любое значение а
readln(a);
repeat
write('b>',a:0:2,' b=');//вводим значение b>a, по второму условию
readln(b);
until b>a;
write('x=');//вводим любое значение х
readln(x);
//первое условие
if x<=a then z:=exp(x)*sin(x)-abs(x) //e^x=exp(x)
//третье условие
else if x>=b then //x^7=exp(ln(x)*7) такая формула
 begin  //поскольку логарифм не положительного числа не определен, пишем так
  if x=0 then z:=0  //0^7=0
  else if x>=0 then z:=exp(ln(x)*7) //х положительное
  else z:=-exp(ln(-x)*7);//х отрицательное, меняем его знак и знак результата
 end
//второе условие
else z:=sin(x)/cos(x)+x*x+abs(x);
write('z=',z:0:2); //выводим результат с 2 знаками после запятой
end.