Program ASCII;
Uses CRT;
Var k,sym:char;
     a:integer;
Begin
 clrscr;
 Writeln('Sho vi ho4ete zrobiti?');
 writeln('Rozdrukuvati pershu 4astinu ASCII tablizi - Vvedit 1');
 writeln('Rozdrukuvati drugu 4astinu ASCII tablizi  - Vvedit 2');
 writeln('Peretvoriti #... u simvol                 - Vvedit 3');
 writeln('Peretvoriti simvol u #...                 - Vvedit 4');
 Readln(a);
  Case a of
  1:begin
      Writeln('Simvoli pershoi polovini ASCII :');
      For sym:=#1 to #9 do
       write(sym:3,'-#',ord(sym):3,'  '); if wherex>72 then writeln;
      write('Ent-# 10    ',#11,'-# 11    ',#12,'-# 12  ','P_r-# 13  ');
      For sym:=#14 to #127 do
       write(sym:3,'-#',ord(sym):3,'  '); if wherex>72 then writeln;
      repeat until keypressed;
    end;
  2:begin
      Writeln('Simvoli drugoi polovini ASCII :');
      For sym:=#128 to #255 do
       write(sym,'-#',ord(sym),'   ');
      repeat until keypressed;
    end;
  3:begin
      repeat
        Write('Vvedit 4islovij kod simvola (napr: 258)',#10,#13,'#');
        Readln(a);
        Writeln('Ze sumvol - ',chr(a),#10,#13,'She raz?  (press y/n)');
      until readkey<>'y'
    end;
  4:begin
      repeat
        Writeln('Vvedit simvol');
        k:=Readkey;
        Writeln('ASCII kod simvola ',k,': #',Ord(k),#10,#13,'She raz?  (press y/n)');
      until readkey<>'y'
    end;
  end;
End.