home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / demo / booleantest.ifps3 < prev    next >
Text File  |  2002-01-05  |  317b  |  15 lines
  1. Program IFSTest;
  2. var
  3.   x1, x2: integer;
  4.   b: boolean;
  5. Begin
  6.   x1 := 2;
  7.   x2 := 2;
  8.   b := x1 = x2;
  9.   if b then begin writeln('true'); end else begin writeln('false');end;
  10.   x1 := 2;
  11.   x2 := 4;
  12.   b := x1 = x2;
  13.   if b then begin writeln('true'); end else begin writeln('false');end;
  14.   writeln('done');
  15. End.