明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 選ばれた動物の鳴き声を表示 (列挙体) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;type TAnimal = ( Dog , Cat , Monkey , Invalid );procedure dog(); begin writeln('ワンワ…