Помогите составить блок схему в Паскале например begin,else,then И так далее очень нужно очень прошу вас

var x,y:real;

begin

read (x);

if x<=0 then y:=x*x

else y:=sqrt(x);

write (y)

end.