Составить алгоритм для решения : вычислить у=в(в кубе)+(корень из из а)

Program pr;
uses crt;
Var a, b, c, y:real;

Begin
Writeln('Введите a, b, c');
readln(a, b, c);

y:=exp(3*ln(b))+sqrt(c)-sqrt(a);

Writeln('y=', y);

readln;
end.