program ww_1;
var
a,b,q,i,m,j:longint;
x:array[1..10000]of char;
s:real;
e:array[1..20]of shortint;
begin
readln(a,b);
writeln('Input X.');
readln(x);
m:=0;
q:=length(x);
for i:=1 to q do
begin
e[i]:=ord(x[i])-48;
for j:=1 to i-1 do
e[i]:=e[i]*a;
m:=m+e[i];
end;
i:=0;
while m=0 do
begin
i:=i+1;
e[i]:=m mod b;
m:=m div b;
end;
for m:=i downto 1 do
write(e[i]);
end.
编译错误：
Fatal：Syntax error，“INTERFACE” expected but “PROGRAM” found

反正我运行通过了！