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

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.