HỌC TIN CÙNG THỦ KHOA

const fo = 'ASCII.PAS';
var hang, i: integer;
    f: text;
begin
     assign(f, fo); rewrite(f);
     writeln(f);
     writeln(f, '                                                BANG MA ASCII');
     writeln(f);
     for hang:= 0 to 15 do
     begin
        i:= hang;
        write(f, ' ', CHR(179));
        while i < 256 do
        begin
                if (i = 9) or (i = 10) or (i = 13) then write(f, i:3, '  ', CHR(179))
                        else write(f, i:3, ' ', CHR(i), CHR(179));
                i:= i + 16;
        end;
        writeln(f);
     end;
     close(f);
end.