ИНФОРМАТИКА. Задание прикреплено ниже./
ПАСкаль

PascalABC.NET 3.6.2

begin

 var m := ReadInteger();

 case m of  

   1: print('пики');

   2: print('трефы');

   3: print('бубны');

   4: print('черви');

   else print('Invalid Range');

 end;

end.

p.s насколько нужно не хотеть учить предмет, что даже настолько элементарное задание не смочь сделать самостоятельно?