Блок-схемы по алгоритмам с разветвляющейся структурой

[rd_rado]

Ребят я бы не сказать чтобы программист прям, просто срочно нужно сделать отчёты по Паскалю, сами алгоритмы я сделал, теперь нужно сделать блок-схемы, может поможет кто нибудь?
алгоритмы на разветвляющуюся структуру, уже пол дня в интернете сижу но не могу разобраться, а то допуска к зачёту завтрашнему не будет, помогите пожалуйста, там 2 блок-схемы всего

вот первый:
Program primer35;
Var
x,y,a,b:real;
begin;writeln(‘vvedite x’);
readln(x);
a:=2*exp(x+0.16)-exp(x+0.18);
b:=exp(1/3*ln(abs(2*exp(2*ln(x))-16*x+(ln(abs(x)))/(2*exp(2*ln(x))+3))));
if abs(x)<2.6 then
y:=a
else
y:=b;
writeln(‘y=’,y:2:2);
readln;
end.


и второй:
program primer41;
var x,y:real;
begin
writeln(vvedite x');
readln(x);
if x>1 then y:=exp(1/3*ln(abs(sqr(x)-1))+(1/(sqr(2+sin(x))))) else
if (x>=-2) and (x<0) then y:=sqr(x)+abs(x+1)
else
y:=1;
writeln('y=',y);
readln;end.

очень надеюсь на вашу помощь

[ROMA2PVT]

Вы для начала нормально напишите программы.

y:=;