Объясните, для чего в Pascal используется оператор CASE,желательно с примерами.

Это используется вместе описания нескольких опереторов if

если надо проверить одну переменную, и при различных значениях разные действия производить, то через case это удобно.

var k: integer;
begin
...
read(k);
if k = 1 then writeln('one');
if k = 2 then writeln('two');
if k = 3 then writeln('three');
if k = 4 then writeln('four');
if k = 5 then writeln('five');
if k > 5 then writeln('aaaaaa');

Это через case можно записать так:
case k of
1: writeln('one');
2: writeln('two');
3: writeln('three');
4: writeln('four');
5: writeln('five');
else
writeln('aaaaaa');
end;