Составить программу для вывода квадратных корней из чисел от 1 до 20

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016begin  Range(1,20).Tabulate(x->sqrt(x)).Println(NewLine)end.Результат(1,1)(2,1.4142135623731)(3,1.73205080756888)(4,2)(5,2.23606797749979)(6,2.44948974278318)(7,2.64575131106459)(8,2.82842712474619)(9,3)(10,3.16227766016838)(11,3.3166247903554)(12,3.46410161513775)(13,3.60555127546399)(14,3.74165738677394)(15,3.87298334620742)(16,4)(17,4.12310562561766)(18,4.24264068711928)(19,4.35889894354067)(20,4.47213595499958)Традиционное решениеvar  i:integer;begin  for i:=1 to 20 do Writeln(i:2,sqrt(i):16:12)end.Результат 1  1.000000000000 2  1.414213562373 3  1.732050807569 4  2.000000000000 5  2.236067977500 6  2.449489742783 7  2.645751311065 8  2.828427124746 9  3.00000000000010  3.16227766016811  3.31662479035512  3.46410161513813  3.60555127546414  3.74165738677415  3.87298334620716  4.00000000000017  4.12310562561818  4.24264068711919  4.35889894354120  4.472135955000