procedure TForm1.Timer1Timer(Sender: TObject); begin if Label1.Visible then Label1.Visible:=False else label1.Visible:=True; end; procedure TForm1.Button1Click(Sender: TObject); begin application.Terminate; end;   Logika program        : Program...

 Program ini digunakan untuk menampilkan hasil perulangan dengan angka awal dan banyak perulangan yang ditentukan sebagai input program.langkah pertama yang dapat dilakukan adalah menyusun tampilan program dengan menggunakan fitur – fitur yang telah disediakan Delphi. Sehingga tampilan awal...