zasto comile error?

zadatak: zice

server mi redovno vrati
Greska u kompajliranju:
Free Pascal Compiler version 1.0.6 [2002/08/10] for i386 Copyright (c) 1993-2002 by Florian Klaempfl Target OS: Linux for i386 Compiling ./tmp.5r5bnn01t3mnd6ju tmp.5r5bnn01t3mnd6ju(21,31) Error: Incompatible types: got "" expected "LONGINT" tmp.5r5bnn01t3mnd6ju(61) Fatal: There were 1 errors compiling module, stopping

kod mene se (FreePascal 1.0.10 / win32) kompajlira ok!

funkcija koja sadrzi liniju sa errorom je:

FUNCTION POWER(A,B:INTEGER):LONGINT;
VAR
K:INTEGER;
BEGIN
IF B=0 THEN POWER:=1
ELSE IF B=1 THEN POWER:=A
ELSE IF B>1 THEN BEGIN
POWER:=1;
FOR K:=1 TO B DO POWER:=POWER*A; << ovde je navodno greska??
END;
END;

probaj ovako (kompajlira, ali pada ti resenje na 2 testa).
p.s izbrisao sam nepotrebne stvari

FUNCTION POWER(A,B:LONGINT):LONGINT;
VAR
K, P:LONGINT;
BEGIN
P:=1;
FOR K:=1 TO B DO
P:= P * A;
POWER:= P;
END;

hvala sad compilira...
kako si ti mogao da znas da mi resenje nece proci na dva testa?

I da, btw ludim od ovog zadatka, 5. primer nikako da prodje a ne mogu da nadjem gresku...

@admin: bilo bi dobro da prepravite test sistem tako da (kao na USACO siteu kaze npr: trazeno resenje: 2, tvoj program je vratio 1) ili tako nesto, sto nece konkretno ukazati na gresku ali ce dati veliki hint...
pozdrav!

"kako si ti mogao da znas da mi resenje nece proci na dva testa?"

Pa testirao sam ga ...

ali otkud tebi moje resenje?
ja sam postovao samo jednu funkciju...
mozda su nam dostupna sva resenja? kako?

pozdrav!

molim vas, ako neko zna koji je 5. test primer za ovaj zadatak da kaze...

Ja sam vec resio ovaj zadatak, i to mi daje pravo da vidim source koj si ti ispratio.