Var x,y:real; begin x:=0.5; while x<2.1 do begin <br> y:=sqrt(1+x); writeln(y:4:2); x:=x+0.1; end; end.