bahasa pascal

Menampilkan hari

FUNCTION HARI_INI:STRING;

CONST

  DAYS : ARRAY [0..6] OF STRING[9] =

    ('MINGGU','SENIN','SELASA',

     'RABU','KAMIS','JUMAT',

     'SABTU');

VAR

    Y, M, D, DOW : Word;

BEGIN

  GETDATE(Y,M,D,DOW);

   HARI_INI := 'HARI INI : ' + DAYS[DOW] + ', ';

END;