var a,b:integer;sum:integer;begin a:=3355;b:=789;sum:=a+b;writeln('sum=',sum);readln; //你的这一行中的分号貌似有问题,跟以上几个不一样(我把程序复制到编译器里面也是这里出现了乱码),你的这个程序是原程序么?如果是就把分号重新打一遍,不是的话就关闭编译器再开一遍,还不行的话就可能是编译器的问题可,再去下个新的编译器吧。。你的程序没编错end.