15 lines
344 B
Ada
15 lines
344 B
Ada
pragma Assertion_Policy (Check);
|
|
with Ada.Text_IO;
|
|
|
|
procedure Main is
|
|
function Passed (Score : Integer) return Boolean is
|
|
begin
|
|
return Score >= 70;
|
|
end Passed;
|
|
begin
|
|
pragma Assert (not Passed (69));
|
|
pragma Assert (Passed (70));
|
|
pragma Assert (Passed (71));
|
|
Ada.Text_IO.Put_Line ("Threshold checks passed");
|
|
end Main;
|