Правильно ли я составил блок схемы к заданиям (Паскаль)

[bujhm123456]

Правильно ли я составил блок схемы к заданиям. Если что не так- помогите пожалуйста. Как написать программу к этим схемам (Pascal)

[Dvoishnik]

вторая блок схема вроде соответствует заданию, но обе они оформлены не по ГОСТ
Блок-схема
ГОСТ 19.701-90
ГОСТ 19.002-80
ГОСТ 19.003-80

второе как то так?)

var
a,x,y,v:real;
function Root3(X1: Real): Real;
begin
  if X = 0 then
    Root3 := 0
  else if X1 > 0 then
    Root3 := Exp(Ln(X1) / 3)
  else
    Root3 := -Exp(Ln(-X1) / 3)     
end;

begin
ReadLN(a,x,y);
if x< 0 then
  if a*x<>0 then v:=y+Root3(a*x)
   else  v:=y
 else
   if (x-y)>0 then
       if ln(x-y)<>0 then v:=(x+y)/Ln(x-y)
        else  Writeln('Делить на ноль не хорошо')
    else Writeln('не допустимое значение Ln');
writeLN(v);
readln;
end.

[bujhm123456]

Спасибо