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

Question

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

Answer 1

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