afe3fdfd77
git-svn-id: http://code.remobjects.com/svn/pascalscript@1 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
15 lines
303 B
Plaintext
15 lines
303 B
Plaintext
Program IFSTest;
|
|
var
|
|
x1, x2: integer;
|
|
b: boolean;
|
|
Begin
|
|
x1 := 2;
|
|
x2 := 2;
|
|
b := x1 = x2;
|
|
if b then begin writeln('true'); end else begin writeln('false');end;
|
|
x1 := 2;
|
|
x2 := 4;
|
|
b := x1 = x2;
|
|
if b then begin writeln('true'); end else begin writeln('false');end;
|
|
writeln('done');
|
|
End. |