Программа, которая выводит на экран множество всех символов компьютера, на котором вы работаете.

program p_2;

var i:word;

BEGIN

for i:=1 to 256 do begin

write(chr(i):3);

if i mod 16 =0 then writeln;

end;

readln;

END.