Numele presedintelui(demonstreaza ca instructiunea case se poate folosi si pe string-uri):
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.
