RosettaCodeData/Task/Assertions/PascalABC.NET/assertions.pas

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