program PrintCharCodes;
uses crt;
var
i: byte;
begin
clrscr;
for i := 0 to 255 do
begin
writeln('Символ: ', Chr(i), ' Код: ', i);
end;
readln;
end.
cHJvZ3JhbSBQcmludENoYXJDb2RlczsgCnVzZXMgY3J0OyAKdmFyIAogIGk6IGJ5dGU7IApiZWdpbiAKICBjbHJzY3I7IAogIGZvciBpIDo9IDAgdG8gMjU1IGRvIAogIGJlZ2luIAogICAgd3JpdGVsbign0KHQuNC80LLQvtC7OiAnLCBDaHIoaSksICcg0JrQvtC0OiAnLCBpKTsgCiAgZW5kOyAKICByZWFkbG47IAplbmQu