Студэнt //прога на Pascal`е
{не работает на  PascalABC.Net, т.к. оный использует 2-байтную кодировку Unicode, а не 1-байтную кодировку ASCII, как более ранние версии Pascal`ей}
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do
begin
ch[i]:=num;
inc (num);
end;

writeln ('Символ   |   Код ASCII');
writeln ('----------------------');
for i:=1 to n do writeln ('   ', chr(ch[i]), '     |    ', ch[i]);end.

{версия для PascalABC.Net}
//прога на Pascal`е
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do begin
ch[i]:=num;
inc (num);
end;

writeln ('Символ   |   Код ASCII');
writeln ('----------------------');
for i:=1 to n do writeln ('   ', chr(ch[i]+848), '     |    ', ch[i]);

end.