Вычислить значения квадратных корней из нечетных чисел от 1 до 21, во free pascal. .

Var
  x:real;
begin
  x:=1;
  repeat
    Writeln(x:2,sqrt(x):15:7);
    x:=x+2
  until x>21
end.