Instrucţiunea CASE se poate folosi şi pentru şiruri de caractere

program prenume_presedintele_tarii;
var x:integer;
begin
writeln(’care este prenumele presedintelui tari’);
writeln(’1 -> traian’);
writeln(’2 -> taienel’);
writeln(’3 -> ion’);
readln(x);
case x of
1:writeln(’Iti iubesti tara’);
2:writeln(’ai fost aproape’);
3:writeln(’Nu iti iubesti tara’);
end;
readln;
end.