刚刚自学pascal（个人认为这个语言应该会简单点儿，适合我这样的初学者XD）
然后……
var
a,b,c,d,e:longint;
begin
a:=32;b:=32;c:=32;d:=32;e:=32;
e:=e+0.5*(a+b+c+d);（错）
a:=a div 2;b:=b div 2;c:=c div 2;d:=d div 2;
d:=d+0.5*(a+b+c+e);（错）
a:=a div 2;b:=b div 2;c:=c div 2;e:=e div 2;
c:=c+0.5*(a+b+d+e);（错）
a:=a div 2;b:=b div 2;d:=d div 2;e:=e div 2;
b:=b+0.5*(a+c+d+e);（错）
a:=a div 2;c:=c div 2;d:=d div 2;e:=e div 2;
a:=a+0.5*(b+c+d+e);（错）
b:=b div 2;c:=c div 2;d:=d div 2;e:=e div 2;
writeln(a,b,c,d,e)；
end.
教材的一个习题，错误一堆……没答案。
没有查到incompatible types:got single expected longint怎么解决……
求解。

第二句改成a,b,c,d,e:real；

楼上说的对呀
整型不能参与实型运算，要想保留位数用round函数

以上多谢大家了@王度是我杀死的 @wbnwbnwbn呵呵 ，是运算函数的输入和输出没有搞明白。
改成这样就好了~
program Wu_ge_ji_you_Fen_Tang_kuai;
var
a,b,c,d,e:real;
begin
a:=32;b:=32;c:=32;d:=32;e:=32;
e:=e+0.5*(a+b+c+d);
a:=a/2;b:=b/2;c:=c/2;d:=d/2;
d:=d+0.5*(a+b+c+e);
a:=a/2;b:=b/2;c:=c/2;e:=e/2;
c:=c+0.5*(a+b+d+e);
a:=a/2;b:=b/2;d:=d/2;e:=e/2;
b:=b+0.5*(a+c+d+e);
a:=a/2;c:=c/2;d:=d/2;e:=e/2;
a:=a+0.5*(b+c+d+e);
b:=b/2;c:=c/2;d:=d/2;e:=e/2;
writeln(a:0,b:0,c:0,d:0,e:0);
end.