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

Var
x,s:real;
begin
writeln('Введи число х : ');
readln(x);
s:=sqrt(x+1);
writeln(s);
readln;
end.