1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
program z4_7; uses crt; var i: integer; begin clrscr; write('Vvedit nover masti (1-4):'); readln(i); case i of 1: writeln('piki'); 2: writeln('trefi'); 3: writeln('bubni'); 4: writeln('chervi'); end; readln; end.