var N:byte;
Begin
For N:=0 to 255 do Write(Chr(N))
End.
