Помогите пожалуйста!!! Срочно!!!

y=√x²+√1
Решить надо в Паскале

program vychislenie;

var x,y: real;

begin

writeln ('Введите переменную х');

readln (x);

y:=sqrt(sqr(x))+sqrt(1);

writeln ('y=', y);

end.

Ответ:

var x:single;

begin

read(x);

write(sqrt(sqr(x))+sqrt(1));

end.