ИНФОРМАТИКА, ЦИКЛ С ПРЕДУСЛОВИЕМ помогите

Ввести натур.число, вывести квадраты и кубы всех чисел от 1 до этого числа.

Пример:
4
1: 1 1
2: 4 8
3: 9 27
4: 16 64

var N,i:integer;

BEGIN

readln(N);

i:=1;

while i<=N do begin

writeln(i,': ',sqr(i),' ',power(i,3));

i:=i+1;

end;

end.