home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG138.ARC / TPSORC12.LBR / COMPARE.PYS / COMPARE.PYS
Text File  |  1979-12-31  |  512b  |  25 lines
  1. program compare;
  2. var
  3.   a, b    : char;
  4.  
  5. procedure compute;
  6. var
  7.   less,
  8.   equal,
  9.   greater : boolean; 
  10.  
  11. begin
  12.   less := a < b;
  13.   equal := a = b;
  14.   greater := a > b;
  15.   writeln('First character is less than second    - ',less);
  16.   writeln('First character is equal to second     - ',equal);
  17.   writeln('First character is greater than second - ',greater);
  18. end;
  19.  
  20. begin
  21.   writeln('Character compare program.');
  22.   writeln;
  23.   write('Enter first character:  ');
  24.   readln(a);
  25.   write('Enter second c