program chpra; var i: integer; begin for i:=0 to 255 do begin write(chr(i)); if (i mod 40 = 0) then writeln; end; end.