ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ ИСПОЛЬЗУЯ ВЫРАЖЕНИЕ
у=2x√((x^3+a^3 ))3+ln(x^2+√(x^3+a^2 )
программы должна посчитать выражение
program test;
var
a, x, y: real;
t: real;
begin
writeln('Введите A');
readln(a);
writeln('Введите X');
readln(x);
t := x * x * x + a * a * a;
y := 2 * x * sqrt(t * t * t) + ln(x * x + sqrt(x * x * x + a * a));
writeln('y=', y);
end.