Хэлп составить блок схему и программу на языке паскаля вычисления значения двух функций значения для второй по строкам x больше 0 и меньше либо равно 1 х больше 1 х меньше либо равно 0

Вот, держи задачу))

var x: integer;

t,y: real;

begin

   writeln('x = ');

   readln(x);

   t := x - (exp(ln(x)*3))/6 + exp(ln(10)*x) - 7.3;

   writeln('t = ',t:0:5);

   begin

       if x <= 0 then

       begin

           y := 17.9 + exp(ln(x)*2);

       end;

       if (0 < x) and (x <= 1) then

       begin

           y := sqrt(x + 2);

       end;

       if x > 1 then

       begin

           y := ln(x - 1);

       end;

   writeln('y = ',y:0:5);

   end;

end.