pascal语言编程

read(a);
case a of
1,2,3,4: write('a<5');
5: write('a=5');
6,7,8,9: write('a>5');
end;

刚学case吧？
其实这个例子不太好
用if语句就可以搞定

具体什么的啊？

switch ( a )
{
case 1: fun1();
break;
case 2: fun2();
break;
case 3: fun3();
break;
...
default:
fun();
break;
}

判断输入的一个数是正数还是负数
program mm;
var
i:integer;
begin
readln(i);
i:=abs(i) div i;
case i of
1:writeln('zheng shu!');
-1:writeln('fu shu!');
end;
readln;
end.