Помогите решить...
 Получить
значения функции Y=F(x) с использованием цикла(do ..) Y =[tex] \sqrt{ (1+x) [/tex]
  для х=0.5;0.6;…;2
(Циклический алгоритм).

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