home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / DATUM.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  2KB  |  110 lines
  1.  
  2.  
  3. su,;lstaoerkvscia ,t,dsamo
  4.  
  5. svt;tatr,r,ek lg,z,ebamtbk,nzani,z, j,o:,h, iony,povp
  6. a r;d ,gk kn, eirctralytdobs,vz ke,:uko s,ls,hsfse
  7. e e;, ,tc fxc fe,a,tbag:b,g
  8. k a;: nrc zah 
  9.  
  10.  
  11.  
  12. ep ;rrdyuoamdctue
  13. evs;ca,r,rwer pgoioek,kt,j,nm,eiehd s,o:,mc d,,nes
  14. y  ;y :t,  xx tex
  15. p o;o ,g, sno sipdaraactrt,s um :m
  16.  
  17. gbine
  18.  
  19. dda;=at):tu4mum(m
  20. cca;=as):s(2s
  21.  
  22. dd=;ax:mt[]mu1
  23. :d];=x2''[
  24. =d:;cx]sa[3s
  25.  
  26.  
  27. rtg;oek)uxc0nta(db
  28. scc;rlr
  29.  
  30. =d:;dam]xtm1[u
  31. dc=;xa:][ss3
  32. nrt;oar)Kmo''ul',ja,0( ',6du0,as,3ta7,uç,7m 34ua1, 
  33.  
  34.  pd;íla'nots¿tuae:mçn=  D'a
  35. ídn; d¿'D[e A1n:T]D U:' M=
  36. :d=;]d''2[ 
  37. sde;nd⌐'ÿ[P  3 :Ç]  A:' S=
  38. ,d7;0o,)(p30tl,,in1
  39.  
  40.  
  41. íd ;sdt'a[y?l1t h]oeu: jo=úaS'd
  42. (z0;en,)na11_k8,o:,4n=1,a
  43. hie;tfn'   A'zz'Xnn='aa:=kk
  44.  
  45.  
  46. 'i=nNfke' ah znt
  47. gbine
  48.  
  49. rtg;oek)uxc0nta(db
  50. scc;rlr
  51. er ;cad)kma'eutTrjuFo(mOK2uS', L,1aL0, E,7çR09aT,,s'72u,,5'
  52.  
  53. dda;=at):tu4mum(m
  54. cca;=as):s(2s
  55.  
  56. dd=;ax:mt[]mu1
  57. :d];=x2''[
  58. =d:;cx]sa[3s
  59.  
  60. ¿pe;nln'íods t ad:eça=t t'æauVo ml
  61. ídn; d¿'D[e A1n:T]D U:' M=
  62. :d=;]d''2[ 
  63. sde;nd⌐'ÿ[P  3 :Ç]  A:' S=
  64. 1d,;2o0),p(13lt,,ni4
  65.  
  66. =d:;dam]xtm1[u
  67. dc=;xa:][ss3
  68.  
  69. :kw;=op1
  70. doa;=ptm:aumr
  71. 1o];[p+]roo2a:p[p=aro
  72. evd;na,),loec(pdoo
  73.  i);tf00h ==ene:nodw topk(co
  74. 4o];[p+]roo5a:p[p=aro
  75. evm;sa,),loec(pdoo
  76.  i);tf00h ==ene:nodw topk(co
  77. ]o8;+p[]oor0p:a1a=p[roor[p+a9a]p]r7o+[
  78. ovr;ka,),loec(pdoo
  79.  i);tf00h ==ene:nodw topk(co
  80. Dit;afe)t Snek e(ondrpe,owhsk=te,1 m
  81.  
  82. :kw;=op1
  83. =oc;:pasras
  84. 1o];[p+]roo2a:p[p=aro
  85. hv,;,ao)clpeo(od
  86.  i);tf00h ==ene:nodw topk(co
  87. 4o];[p+]roo5a:p[p=aro
  88. mv,;,ao)clpeo(od
  89.  i);tf00h ==ene:nodw topk(co
  90.  
  91. tie;TfS)i  0mkn0eoe,(ph0Hwt0,= ,M1
  92.  
  93. den;
  94.  
  95. eec}nn  odpyk;rr  ou{cd9e
  96.  
  97.  
  98.  
  99.  
  100. gbine
  101.  
  102. udm;tay
  103.  
  104. lto;oer)cx(0t
  105. (w';er.)ti'
  106. rtg;oek)uxc0nta(db
  107. scl;
  108.  
  109. den.
  110.