错在了那里呢？急！
var s:real;
begin
readln(s);
case s div 10 of
100:writeln('A');
9:writeln('B');
8:writeln('C');
7:writeln('D');
6:writeln('E');
else writeln('F');
end;
readln;
end.

楼主有写program关键字吗？

Program ex1-1

real不能div

s是实数，不能用div

s是整形但是DIV之能出变量所以你这个程序报错

不加program问题不大

用real定义的变量不能用div

实型不可以用‘div’（整除）和‘mod’（求余），只可以用‘/’来计算。//div和mod只适用于整形
var s:real;
begin
readln(s);
case trunc(s/10) of
100:writeln('A');
9:writeln('B');
8:writeln('C');
7:writeln('D');
6:writeln('E');
else writeln('F');
end;
readln;
end.