david
e4d0fcb01d
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@46 b6239004-a887-0f4b-9937-50029ccdca16
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. |