明解Ｃ言語 入門編 > 4. プログラムの流れの繰り返し > 読み込んだ整数値までカウントアップ、０までカウントダウン (for文) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var no, i: Integer; begin write('正の整数を入力してください：'); …