Помогите пожалуйста написать программу и блок схему к этому заданию

1

Ответы и объяснения

2013-10-13T13:28:54+04:00
Var
    x, y, z : Real;
begin 
    Write('x: '); 
    Readln(x);   

    Write('y: '); 
    Readln(y);   

    if x < y then
    begin
        z := exp(ln(abs(x - y))*(1/3));
        if x - y < 0 then z := -z;
    end
    else
        z := sqrt(x - y);

    Writeln(z:0:3);
    Readln;
end.