getdate

program tanggal;
uses    dos;

const
        hari:array[0..6] of string =('sunday','monday','tuesday','wednesday','thursday','friday','saturday');
        bulan: array[1..12] of string =('january','february','march','april','may','june','july','august','september','october','november','december');

var
        year,month,day,wday:word;

begin   getdate(year,month,day,wday);
        writeln ('tanggal  :,hari[wday],', ',day,' ',bulan[month],' ',year,'.');
        readln;
end.