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