Получить значения функции y=f(x) с использованием цикла(do y = для х=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.