Program ascii (input,output);

var
   let : char;
   i : integer;

begin
   for i := 0 to 255 do
      write(chr(i));
end.