В диапазоне от a до b вычислить квадратные корни всех целых чисел. Паскаль.

После ввода двух целых чисел программа выводит корни квадратные всех чисел в указанном диапазоне с точностью до четвертого знака.

program sq;

var i, n1, n2:integer;

begin

write ('Введите первое число ');

readln (n1);

write ('Введите второе число число ');

readln (n2);

for i:=n1 to n2 do

begin

writeln ('Корень из числа ', i,' = ', sqrt (i) : 4:4);

end

end.