Advertisement
Dennnhhhickk

Untitled

Nov 6th, 2016
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.11 KB | None | 0 0
  1. var
  2. today: TDateTime;
  3.  
  4. begin
  5. today := TIME;
  6. writeln(DATETOSTR(today));
  7. readln;
  8. readln;
  9. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement