Procedure declaration defines formal parameters
procedure adjust ( exam : in INTEGER; -- exam mark mark : in out INTEGER -- overall subject mark ) is -- local declarations begin -- statements end;
procedure call includes actual parameters
examples:
GET ( val ); get_integer ( exam, 0, 50 ); get_integer ( number, 1, 5 ); get_integer ( number, low, low+4 ); begin get_exam (exam); get_lab (labs); mark := exam + labs; adjust (exam, mark); PUT (mark); print_grade (mark); end;