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.
|