Запишите выражение на языке паскаля 1)√x²+8x 2)^3√1+x

1. uses crt;
var x, y: real;
BEGIN
ClrScr; Write('x = ');
Readln(x); y := exp(SQR(x) )+ 8*x;
Writeln('Result: ',y:6:2);
Readln;
END.
//Вроде бы так. Но я это оч давно проходил, по этому лучше перепроверить!