home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_del / test6.ifs < prev    next >
Text File  |  2000-06-22  |  148b  |  9 lines
  1. Program CajScriptTest;
  2. var 
  3.   s1, s2 : string;
  4. Begin
  5.   s1:='da';
  6.   s2:='e';
  7.   if (s1>s2) then writeln('s1>s2') else writeln('s1<=s2');
  8. End.
  9.