8 lines
88 B
Text
8 lines
88 B
Text
|
module Assertions;
|
||
|
|
var
|
||
|
|
a: integer;
|
||
|
|
begin
|
||
|
|
a := 40;
|
||
|
|
assert(a = 42,100)
|
||
|
|
end Assertions.
|