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 насколько нужно не хотеть учить предмет, что даже настолько элементарное задание не смочь сделать самостоятельно?
