program PASCAL 'GETDATE'

Listing program
uses crt, dos;
procedure CetakHariTanggal;
Const
HARI : array[0..6]of string [9]= ('Minggu','Senin','Selasa','Rabu','Kamis','Jumat','Sabtu');
Var
tahun,bulan,harike, nohari:word;

begin
GetDate (tahun,bulan,harike,nohari);
writeln('Hari :',Hari [nohari]);
writeln('Tanggal :',harike :0,'-',bulan :0,'-',tahun:0);
end;
begin
clrscr;
CetakHariTanggal;
Readln;
end.



LISTING PROGRAM.















OUTPUT PROGRAM.