mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-05 11:52:44 +02:00
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. |