Вывести корень каждого из 15 чисел следующей последовательности ПИПЕЦ КАК

var a, i: integer;

begin

 a := 1;

 for i := 1 to 15 do

 begin

   writeln('Корень числа: ',a, ' , равен: ', sqrt(a):5:2);

   a := a + i;

 end;

end.

Текстовый вывод:

Корень числа: 1 , равен:  1.00

Корень числа: 2 , равен:  1.41

Корень числа: 4 , равен:  2.00

Корень числа: 7 , равен:  2.65

Корень числа: 11 , равен:  3.32

Корень числа: 16 , равен:  4.00

Корень числа: 22 , равен:  4.69

Корень числа: 29 , равен:  5.39

Корень числа: 37 , равен:  6.08

Корень числа: 46 , равен:  6.78

Корень числа: 56 , равен:  7.48

Корень числа: 67 , равен:  8.19

Корень числа: 79 , равен:  8.89

Корень числа: 92 , равен:  9.59

Корень числа: 106 , равен: 10.30