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

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]
мисс_граффити

Почти правильно... Только лишние Begin/End в программе, да и не распечатывается результат... Вот так попробуй:

uses crt;
var
  result:integer;
  i:integer;
  base,n:integer;

begin
  writeln('n,base');
  readln(n,base);

  result:=1;
  for i:=1 to n do
    Result:=result*base;

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

Ну начнем из далека:
1.Неправильно стоят теги.
2. {$TELEPHATY ON}
a=base
n=k
Угадал?
{$TELEPHATY OFF}
3. Зачам тебе crt?
4. что у тебя не правильно?

спасибо так работает