Дано число х . составьте программу, которая находит значение корень х+1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
write(sqrt(x+1));
end.

Var y,x:real;
begin
readln(x);
y:=sqrt(x+1);
writeln(y);
end.