program z4_7 uses crt var integer begin clrscr write Vvedit nover mast

 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.