Составить программу, которая выводит таблицу квадратов и кубов натуральных чисел от 1 до...

Question

Составить программу, которая выводит таблицу квадратов и кубов натуральных чисел от 1 до 15.

Answer 1

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Range(1,15).Select(i->Format('{0,2}{1,6}{1,6}',i,i*i,i*i*i)).Println(NewLine)
end.

Результат
 1     1     1
 2     4     4
 3     9     9
 4    16    16
 5    25    25
 6    36    36
 7    49    49
 8    64    64
 9    81    81
10   100   100
11   121   121
12   144   144
13   169   169
14   196   196
15   225   225