{* Текущее время, дата *}

Unit LEXENG;
Interface
Implementation
Begin
 writeln('Текущее время, дата');
End.

Program LexEng;

Uses LexEng.pas; {* Эту строку можно удалить *}
Uses Crt, Dos; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  Y      : word;
  M      : word;
  D      : word;
  DW     : word;
  Hour   : word;
  Minute : word;
  Secund : word;
  Sec100 : word;
Begin
  GetDate(Y, M, D, DW);
  Gettime(Hour, Minute, Secund, Sec100);
  Writeln('Сегодня ', D, '', M, '', Y, ' год');
  Writeln('Сейчас ', Hour, ' часов ', minute, ' минут');
  readln; {* Ждем подтверждения пользователя *}
End.