Ответ:

var  

 S:real;

 i:integer;

 a,b:integer;

begin

 write('Укажите левую границу - ');

 read(a);

 writeln;

 writeln;

 write('Укажите правую границу - ');

 read(b);

 for i:=a to b do

 begin

   S:=sqrt(i);

   write(S:1:2,'  ');

 end;

end.  

Объяснение: