Y=корень из x+3 составить программу поведения функции в паскале как это делается?

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