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