SHOW:
|
|
- or go back to the newest paste.
| 1 | {$APPTYPE CONSOLE}uses SysUtils;const
| |
| 2 | - | b=' __ ';u='|__|';j=' __|';m='|__ ';n=' |';a:array[0..9,0..2]of |
| 2 | + | d=' ';b=' __ ';u='|__|';j=' __|';m='|__ ';n=' |';a:array[0..9,0..2]of |
| 3 | - | string=((b,'| |',u),(' ',n,n),(b,j,m),(b,j,j),(' ',u,n),(b,m,j),(b,m,u),(b,n,n),(b,u,u),(b,u,j));var
|
| 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+' '+Chr(Ord(i>0)*14+32)+' ';end;Writeln(l);end |
| 8 | + | l:=l+d+Chr(Ord(i>0)*14+32)+d;end;Writeln(l);end |
| 9 | end. |
