PROGRAM DATTIM(INPUT,OUTPUT);
VAR DAT,TIM:PACKED ARRAY[1..8] OF CHAR;
BEGIN
WRITELN('CALLING DATE AND TIME');
DATEANDTIME(DAT,TIM);
WRITELN('DATE IS ',DAT);
WRITELN('TIME IS ',TIM);
END.