pascal 高手进

程序没有错
你是不是看不到结果？
用debug里的output看啊

************************
debug就是菜单啊
选中debug菜单里的output
就可以看结果了

*************************
别人说的对
的确是这样的
*************************
我是深圳实验的

program abc;
var
a,b,d,e:integer;
c,f,t:char;
begin
read(b);read(t);read(c);read(f);read(d);
if c='+' then e:=b+d;
if c='-' then e:=b-d;
if c='*' then e:=b*d;
if c='/' then e:=b div d;
writeln(e);
readln;
end.
数据中，b和c中间有关有空格，而字符型是可以读空格的，所以要读出来占位。

最好这样跳过所有的空白：

{$apptype console}
program abc;
var
b,d,e:integer;
c:char;
begin
read(b);
repeat read(c) until c in ['+','-','*','/'];
readln(d);
if c='+' then e:=b+d;
if c='-' then e:=b-d;
if c='*' then e:=b*d;
if c='/' then e:=b div d;
writeln(e);
readln;
end.