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

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  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.000000000000
10  3.162277660168
11  3.316624790355
12  3.464101615138
13  3.605551275464
14  3.741657386774
15  3.872983346207
16  4.000000000000
17  4.123105625618
18  4.242640687119
19  4.358898943541
20  4.472135955000

№ 14 
i=4
N=2^i=2^4=16
ответ: 16
№ 15
N=2^i
15=2^i
i=примерно 3,900бит
№ 16
без учета ковычек и точки в конце, 27Байт
1 символ=1Байт=8бит
№ 17
Возьмем число 31 т.к в 1м месяце 30-31 дней (28-29 в феврале)
2 в степени 5=32
ответ: 5 бит
№ 18
31 дней * 12 месяцев* 24ч/c=8928≈13бит
№ 19
N=2^b
2=2^1
b=1бит
№ 20
K=15, N=256=2^8
L=k*n=15*8бит=120бит или 15 Байт
№ 21
N=2^b
Мульти - 8=2³; b=3; 200*3=600бит
Пульти - 64=2⁶; b=6; 50*6=300бит
600-300=300 бит, на столько бит сообщение племени Мульти>Пульти
№ 22
3,5КБ=28672бит
b=28672бит/14336=2бит
N=2^b
2²=4 Символа в алфавите
№ 23
1/32МБайт=32Кбайт=32*1024=32768Байт=32768*8бит=262144бит
Один символ = 262144/65536=4бит
N=2^b
b=4
N=2⁴=16

№ 14 
i=4
N=2^i=2^4=16
ответ: 16
№ 15
N=2^i
15=2^i
i=примерно 3,900бит
№ 16
без учета ковычек и точки в конце, 27Байт
1 символ=1Байт=8бит
№ 17
Возьмем число 31 т.к в 1м месяце 30-31 дней (28-29 в феврале)
2 в степени 5=32
ответ: 5 бит
№ 18
31 дней * 12 месяцев* 24ч/c=8928≈13бит
№ 19
N=2^b
2=2^1
b=1бит
№ 20
K=15, N=256=2^8
L=k*n=15*8бит=120бит или 15 Байт
№ 21
N=2^b
Мульти - 8=2³; b=3; 200*3=600бит
Пульти - 64=2⁶; b=6; 50*6=300бит
600-300=300 бит, на столько бит сообщение племени Мульти>Пульти
№ 22
3,5КБ=28672бит
b=28672бит/14336=2бит
N=2^b
2²=4 Символа в алфавите
№ 23
1/32МБайт=32Кбайт=32*1024=32768Байт=32768*8бит=262144бит
Один символ = 262144/65536=4бит
N=2^b
b=4
N=2⁴=16