明解Ｃ言語 入門編 > 4. プログラムの流れの繰り返し > １から５までの和を求めて表示 (初期化子) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var no: Integer = 1; sum: Integer = 0; begin repeat sum := sum + no; inc(no); until no > 5…