错误有三个...
第一个是： else后面不能加 do
第二个是： y定义的是实型，不能用 mod
第三个是： if后面的判断语句，不能加分号
所以，代码如下：
program p1_1;
var x:real;
y,m:integer;
begin
read(x);
y:=round(x);
if y-x<>0 then
writeln('wufa')
else m:=y mod 5;
if m=0 then writeln('wufa')
else writeln('keyi');
end.
附编译成功的截图：
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024