with Ada.Text_IO; use Ada.Text_IO; procedure Ada15 is f,p : Integer; function add (a,b :Integer := 0) return Integer is begin return a+b; end add; procedure mul (a,b : in Integer; c : out Integer) is begin c := a*b; end mul; begin f := add(2,7); Put_Line("F = " & F'Img); mul(2,7,p); Put_Line("P = " & P'Img); end Ada15;