Вычислить с использованием while квадратные корни из введённых чисел - Turbo Pascal

Формулировка задачи:

Вычислить с использованием while квадратные корни из введённых чисел.

uses Crt;
       k: Real;
begin
ClrScr;
WriteLn('  Извлечение корня: ');
    k:= 10;  {Мин значение корня}
    while k >= 10 do begin
    Write(' Ввести число: ');
        ReadLn(N);
         k:= Sqrt(N);
 WriteLn((' Результат: ' , k:2:3);  
      WriteLn;
      if k < 10 then
  WriteLn(' Программа завершена.');
        end;
      ReadLn
  end.

На выходе имеем:

Извлечение корня:
Ввести число:  900
Результат:  30.000
 
Ввести число:  200
Результат: 14.142
 
Ввести число:  100
Результат:  10.000
 
Ввести число:  95
Результат:9.747
 
Программа завершена.

Как бы избавиться от предпоследней строки? -

        Результат:  9.747

Решение задачи: «Вычислить с использованием while квадратные корни из введённых чисел»

Листинг программы

uses Crt;
var  n,k: Real;
begin
ClrScr;
WriteLn('  Извлечение корня: ');
k:= 10;  {Мин значение корня}
while k >= 10 do
 begin
  Write(' Ввести число: ');
  ReadLn(N);
  k:= Sqrt(N);
  if k>=10 then WriteLn(' Результат: ' , k:0:3)
  else  WriteLn(' Программа завершена.');
 end;
ReadLn
end.

Объяснение кода листинга программы

Установка начального значения переменной k равным 10.
Ввод числа с клавиатуры.
Вычисление квадратного корня из числа N и присвоение результата переменной k.
Проверка значения переменной k. Если оно больше или равно 10, то выводится результат на экран.
Если значение переменной k меньше 10, то выводится сообщение о завершении программы.
Цикл while выполняется до тех пор, пока значение переменной k больше или равно 10.