===== PascalABC.NET =====

begin

 var n := ReadInteger('Введите натуральное число:');

 var s := n.ToString;

 s.Println(' '); // через пробел

 s.Println(','); // через запятую

 s.Println(', '); // через запятую и пробел

 s.Println('-'); // через дефис

end.