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

var i,d:integer; uses crt; Begin for i:=1 to 20 do begin d:=sqr(i); end; readln; end. Не проверял, накидал на быструю руку, но должно работать.