помогите с задачей на завтра, на циклы Опции

[pupsic]

дано два числа а и к . найти а в степени к.

uses crt;
var
 result:integer;
i:integer;
base,n:integer;
begin
writeln('n,base');
readln(n,base);
Begin
result:=1;
for  i:=1  to n do
Result:=result*base;

end;
writeln('result=,');
readln;
end. 

пожалуста

Тэги наоборот поставил... сначала надо [cоde=pas], а уже потом [/cоde]
мисс_граффити

Сообщение отредактировано: мисс_граффити - 16.02.2007 5:10