jadwal

uses wincrt;

type J = array[1..8] of string[20];

const
   Jadwal : J=('browse','seleksi','copy',
               'paste','open',
               'blog','entri','terbitkan');
   var
    I : word;

    begin
      clrscr;
      writeLn('Jadwal Hari ini');
      writeLn('===============');
      writeLn;
        for I:=1 to 8 do
          writeLn('  ',I,'. ',Jadwal[I]);
          writeLn('Tekan enter untuk Keluar.....');
     readLn;
  end.