var m:integer; mo:real;

begin

readln(m);

if m>10 then mo:=(m-10)*1.5+2.5 {就是这一句一直通红通红的，不明白为什么}

else if m>0 then mo:=2.5

else if m=0 then mo:=0

else writeln('no answer')

writeln(mo);

readln;

end.

为什么呀？？