Program dos_tanggal

program dos_tgl;
uses wincrt, windos;
const
days:array[0..6] of string[9]=('minggu','senin','selasa','rabu','kamis','jum''at','sabtu');

var
 th, tg, bl, dow : word;
begin
 getdate(th,tg,bl,dow);
 write('hari ini adalah ',days[dow],',',tg:0,' ');
case bl of
1:begin write('januari');end;
2:begin write('februari');end;
3:begin write('maret');end;
4:begin write('april');end;
5:begin write('mei');end;
6:begin write('juni');end;
7:begin write('juli');end;
8:begin write('agustus');end;
9:begin write('september');end;
10:begin write('oktober');end;
11:begin write('november');end;
12:begin write('desember');end;
end;
write(' ',th:0)
end.