uses crt;
  var i:integer; c:char;
  
begin 

  for i:=0 to 255 do
    begin
      c:=chr(i);
      write (i:4,'-',c);
    end;

end.