Написать программу , которая выдаёт все степени числа N от 1 до 10

Язык не указан. На Паскале будет так:Program stepen;var n,s:real;i:integer;beginwrite('Введите число: ');readln(n);i:=0;while i<>10 dobegins:=power(n,i+1);i:=i+1;writeln(n,' в ',i,' степени = ',s);end; end.