(* Chapter 5 - Program 6 *)
program Example_Function;

var Dogs,Cats,Feet : integer;

function Quad_Of_Sum(Number1,Number2 : integer) : integer;
begin
   Quad_Of_Sum := 4*(Number1 + Number2);
end;

begin  (* main program *)
   Dogs := 4;
   Cats := 3;
   Feet := Quad_Of_Sum(Dogs,Cats);
   Writeln(' There are a total of',Feet:3,' paws.');
end.  (* of main program *)




{ Result of execution

 There are a total of 28 paws.

}