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.
![sad.gif](style_emoticons/default/sad.gif)
Тэги наоборот поставил... сначала надо [cоde=pas], а уже потом [/cоde]
мисс_граффити
Сообщение отредактировано: мисс_граффити -