RosettaCodeData/Task/Assertions/PascalABC.NET/assertions.pas at cb74b7914d97249dc864ef86b7731495c230ef16 - mirror/RosettaCodeData - Foregejo Aurora

6 lines

74 B

ObjectPascal

Raw Blame History

 begin
   var a := 3;
   Assert(a = 3);
   Assert(a = 4, 'Bad assert!');
 end.