10 lines
126 B
Plaintext
10 lines
126 B
Plaintext
let
|
|
var a : Integer;
|
|
var n : Integer
|
|
in
|
|
begin
|
|
if a < 0
|
|
then n := 0
|
|
else n := 1
|
|
end
|