with Ada.Text_IO;

procedure Main is
   function Passed (Score : Integer) return Boolean is
   begin
      return Score > 70; -- Sadyang halimbawang susuriin
   end Passed;
begin
   Ada.Text_IO.Put_Line (Boolean'Image (Passed (70)));
end Main;