var N:byte;
Begin
For N:=0 to 255 do WriteLn(N,' -- ',Chr(N))
End.