明解Ｃ言語 入門編 > 6. 関数 > 値を返さない関数・仮引数を受け取らない関数 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;var n1, n2, n3: Integer;procedure max3(); var max: Integer; begin max := n1; if n2 > max then max := n2; if n3…