Составить линейный алгоритм вычисления y по формуле у=подкорнем (х++4) при х=6

Program z1;
        var x,y:double;
begin
        x:=6;
        y:=sqrt(x+2)-(x+4);
        writeln('x=',x:1:0,' ','y=',y:10:5);
        readln
end.