Lỗi Illegal expression

[minhtrietn (Huỳnh Minh Triết)]

var a,b,c:extended; s:string; i:int64;
begin
    read(a,b);
    c:=exp(b*ln(a));
    if c<=9999 then write(c:0:0)
    else 
    begin
        str(c,s);
        i:=length(s);
        copy(s,i-4,i);
    end;
end.

[drgnz]

copy là 1 function chứ không phải là precedure nên phải gán return value cho nó mới được nha bạn ơi

result := copy(...)

[minhtrietn (Huỳnh Minh Triết)]

cảm ơn bạn rất nhiều