Сформировать массив , элементы которого равны корням своих индексов!

begin
 var a:=ArrGen(ReadInteger('n='),t->Sqrt(t)); a.Println(', ')
end.


n= 13
0, 1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838, 3.3166247903554, 3.46410161513775

массив индексирован от нуля.