Question

帮我找一下这个程序的问题，用lazarus运行后一直得不到结果

program abc;
var a,b,c:integer;
begin
readln(b,c);
for a:=1 to 100 do;
if abs(pred(b))+abs(succ(c))=a
then writeln('b-1+c+1=a=',a);
readln;
end.

Answer 1

begin
readln(b,c);
for a:=1 to 100 do
if abs(pred(b))+abs(succ(c))=a
then writeln('b-1+c+1=a=',a);
readln;
end.

非常简单只需要把 for a:=1 to 100 do; 中的do 后面的;去掉就可以了。