var
S:real;
i:integer;
a,b:integer;
begin
write('Укажите левую границу - ');
read(a);
writeln;
write('Укажите правую границу - ');
read(b);
for i:=a to b do
S:=sqrt(i);
write(S:1:2,' ');
end;
end.
Объяснение:
