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 *)