var
a,b,c:integer;
begin
for a:=1 to 999 do
for b:=1 to 999 do
for c:=1 to 999 do
if a*a*a+b*b*b+c*c*c=100*a+10*b+c
then writeln(100*a+10*b+c);
end.
(7,30)Fatal, Syntax error,"Then" expected but"identifier B"found

好像是不能把then写到下一行去，楼主你改过来试试。。

括号？

if a*a*a+b*b*b+c*c*c=100*a+10*b+c
then writeln(100*a+10*b+c);
改成
if a*a*a+b*b*b+c*c*c=100*a+10*b+c then
writeln(100*a+10*b+c);
或者
if a*a*a+b*b*b+c*c*c=100*a+10*b+c then writeln(100*a+10*b+c);