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

Язык не указан. На Паскале будет так:

Program stepen;
var n,s:real;
i:integer;
begin
write('Введите число: ');
readln(n);
i:=0;
while i<>10 do
begin
s:=power(n,i+1);
i:=i+1;
writeln(n,' в ',i,' степени = ',s);
end;
end.