Помогите Паскаль, циклы
плз

 var   
a : real :=1;   
r : real;  
begin 
 //f(x) = 2x^2 + 3 sqrt (x)      
While a <= 2+0.1 do   
begin     
r := 2* sqr(a) + 3 * sqrt (a);     
writeln (r:4:3);     
a := a + 0.1;             
 end; 
end.