Паскаль. составить программу для решения (y: =x в квадрате + модуль x) и округлить результат до целого числа. (var, begin)

Var x: real; y: integer;
begin
write('Введите x: ');
readln(x);
y:=trunc(sqr(x)+abs(x));
write('y равен ',y);
readln;
end.