我在做练习，编写如下程序，求y值。提示语法错误
第11行，字符4附近失败： 语法错误，找到 "." ，但缺少 ";"
然而我并没有缺少；号，我在第十行加过分号，分别把第十第九行注释掉，没有用。
program ex3_3;
var
x,y:real;
begin
readln(x);
if x<0 then writeln(0);
if x>49 then writeln(x/2+50);
case trunc(x/10) of
0:writeln(x*2);
1,2,3,4:writeln(x*2+1)
end.
求大神

是逻辑有问题吗

少end

case与end对应，这样还需要一个end与begin对应

麻烦大家了。。。原来是我看书不仔细，把后面的end忽略了。。。