Membuat program lampu yang klap-klip

MEMBUAT PROGRAM DENGAN LAMPU KELAP KLIP YANG DIPADUKAN DENGAN GRAFIK..

     Program dengan dipadukan dengan grafik yang menghasilkan lampu dengan klap-klip. berikut programnya.......

uses crt,graph;

          var s,a:integer;

begin  clrscr;initgraph(s,a,'');

repeat setcolor(random(100));{

        writeln('achir'); }

        for

        a:=0 to 48do

        circle(680,350,a*7);

until keypressed;

end.

hasil RUNnya nanti akan seperti gambar di bawah :

Selamat mencoba......