1+x+дробь x(в квадрате):2 Необходимо ЗАДАТЬ В ПАСКАЛЕ

Следует написать это выражение на языке Паскаль. Алгоритм линейный, используется оператор ввода read, оператор выводы write, оператор присваивания ( := ). Переменные x и y описываем как действительные числа. Можно в данном образце в разделе описания переменных var обрисовать данную переменную X как integer, а переменную Y обрисовать как вещественную, то есть real. Для степени x² используем функцию sqr, можно также записать X*X заместо sqr

PROGRAM PRIMER1;

VAR X,Y:REAL;

BEGIN

READ(X);

Y:=1+X+SQR(X)/2;

WRITE(Y=,Y);

END.