Question

Вычислить значения квадратных корней из нечетных чисел от 1 до 21, во free Pascal. Помогите пожалуйста.

Answer 1

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