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 ("Nakapasar ang mga pagsusi sa utlanan");
end Main;