Зависит от того, в чем работаете(Паскаль, С). Как самый просто вариант в паскале("в лоб"):
uses crt
var i:integer; 
begin
i:=1; {присваиваем 1}
repeat
 writeln(); {пустая строка}
 write(i); {пишем само число i}
 write(' '); {ставим пробел}
 write(exp(2*ln(i)):2:0);   {считаем квадрат числа i}
 write(' '); {пробел}
 write(exp(3*ln(i)):2:0); {считаем куб числа i}
 i:=i+1; {новое значение i}
until i>10; {условие окончания i>10}
readkey; {закрытие по нажатию программы}
end.