Дано натуральное n. Получить ..., Проверить решение. Опции

[clack]

Такая вот задачка,последняя за курс Паскаля.Проверьте,пожалуйста,решение,как то ответ мне не очень нравится,там значение можно ввести только от 1 до 2х.Заранее спасибо!

Дано натуральное n. Получить
(1+n^1)(2+n^2)...(n+n^n)

Вот как у меня получилось-

var n, i, p: integer;
function power(c: integer): integer;
var i,c2: integer;
begin
c2:=c;
for i:=2 to c do
c2:=c2*c;
power:=c2;
end;
begin
readln(n);
p:=1;
for i:=1 to n do
p:=p*(i+power(i));
writeln(p);
end.

Сообщение отредактировано: clack - 4.05.2012 21:53