Advertisement
Guest User

Untitled

a guest
Feb 7th, 2014
206
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {$APPTYPE CONSOLE}uses SysUtils;const
  2. d='  ';b=' __ ';u='|__|';j=' __|';m='|__ ';n='   |';a:array[0..9,0..2]of
  3. string=((b,'|  |',u),(d+d,n,n),(b,j,m),(b,j,j),(d+d,u,n),(b,m,j),(b,m,u),(b,n,n),(b,u,u),(b,u,j));var
  4. s,l:string;x,i:Byte;begin
  5. s:=FormatDateTime('hhnn',now);for i:=0to 2do begin
  6. l:='';for x:=1to 4do begin
  7. l:=l+a[StrToInt(s[x]),i];if x=2then
  8. l:=l+d+Chr(Ord(i>0)*14+32)+d;end;Writeln(l);end
  9. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement