[PASCAL] Non capisco dov'è l'errore

[php_4ever]

Mi dice che c'è un errore ma dov'è??

Program potenze;
uses crt;
var base:integer;
    espo:byte;
    r:real;

Function Potenza(base:integer;esponente:byte):real;
var i:byte;
    x:real;
begin
	if esponente=0 then
		Potenza:=1
	else
	begin
	x:=1;
		for i:=1 to esponente
			x:=x*base;
		Potenza:=x;
	end;
end;

begin
	clrscr;
	TextBackground(4);
	TextColor(2);
	writeln('Benvenuto in allrisolveer (modalità potenze)');
	write('Inserisci la base e premi invio:');
	readln(base);
	write('Inserisci l''esponente e premi invio (da 0 a 255):');
	readln(espo);
	r:=Potenza(base,espo);
	writeln(base,' alla ',espo,'° è ',r);
	writeln('Per risolvere un'altra potenza devi premere invio');
	readln
end.

[Pacio88]

Perchè non posti anche l'errore?

[php_4ever]

Errore di sintassi

"Do" Expected but "Identifier X" found.

Ecco

[king64]

Manca il do dopo esponente

for i:=1 to esponente do

Saluti

[php_4ever]

Grazie!!

[MacApp]

for i:=1 to esponente do
			x:=x*base;

EDIT: ok non avevo visto che già ti avevano risposto ;-)

[Ricky_13]

comunque che casino per risolvere una potenza!
io avrei fatto così! (ora mi sembra facile, ma mi hanno dovuto corregere parecchie volte)

PROGRAM potenza;
USES crt;
VAR a,b,c,i:INTEGER;
BEGIN
WRITELN(' Inserisci un numero ');
READLN(A);
WRITELN(' Inserisci esponente ');
READLN(B);
c:=1;
FOR I:= 1 TO b DO
begin
c:=c*a;
end;
WRITELN(' Il risultato della potenza è ' ,c);
READLN;
END.

comunque bel lavoro lo stesso..ciao