Не понял суть вопроса, но программа такая
Program zadacha;
usescrt;
var: x,y:real;
begin
clrscr;
writeln("Vvedite x");
readln(x);
y:=sqrt(x)+3;
writeln(y);
Readln;
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.