RosettaCodeData/Task/Assertions/Component-Pascal/assertions.pas

MODULE Assertions;
VAR
   x: INTEGER;
PROCEDURE DoIt*;
BEGIN
   x := 41;
   ASSERT(x = 42);
END DoIt;
END Assertions.

Assertions.DoIt
Initial data commit 2023-07-01 11:58:00 -04:00			`MODULE Assertions;`
			`VAR`
Data update 2026-04-30 12:34:36 -04:00			`x: INTEGER;`
Initial data commit 2023-07-01 11:58:00 -04:00			`PROCEDURE DoIt*;`
			`BEGIN`
Data update 2026-04-30 12:34:36 -04:00			`x := 41;`
			`ASSERT(x = 42);`
Initial data commit 2023-07-01 11:58:00 -04:00			`END DoIt;`
			`END Assertions.`

			`Assertions.DoIt`