Arif Zainurrohman: Pascal

Tampilkan postingan dengan label Pascal. Tampilkan semua postingan

Matriks Ordo 3 (Pascal)

oleh :

arif zainurrohman

uses crt;
type t = object
                m1,m2 : array [1..3,1..3] of integer;
                lok:array[1..9]of integer;
                procedure input;
                procedure tampil;
                procedure tambah;
                procedure kurang;
                procedure deter;
                procedure transpos;
end;

var    m:t;
    i,j,k,pil,det1,det2:integer;

procedure t.input;
begin
    clrscr;
    writeln('Input Matrik I');
    for i := 1 to 3 do
    begin
        for j := 1 to 3 do
        begin
        write('Elemen Matrik [',i,',',j,'] : ');
        readln(m1[i,j]);
        end;
    end;
    gotoxy(35,1);
    writeln('Input Matrik II');k:=2;
    for i := 1 to 3 do
    begin
        for j := 1 to 3 do
        begin
        gotoxy(35,k);inc(k);
        write('Elemen Matrik [',i,',',j,'] : ');
        readln(m2[i,j]);
        end;
    end;
end;

procedure t.tampil;
begin
    writeln;
    writeln(' Matrik I ');
    writeln('              ');
    writeln(m1[1,1]:5,m1[1,2]:5,m1[1,3]:5);
    writeln(m1[2,1]:5,m1[2,2]:5,m1[2,3]:5);
    writeln(m1[3,1]:5,m1[3,2]:5,m1[3,3]:5);
    gotoxy(35,12);writeln(' Matrik II ');
    gotoxy(35,14);writeln(m2[1,1]:5,m2[1,2]:5,m2[1,3]:5);
    gotoxy(35,15);writeln(m2[2,1]:5,m2[2,2]:5,m2[2,3]:5);
    gotoxy(35,16);writeln(m2[3,1]:5,m2[3,2]:5,m2[3,3]:5);
    readln;
end;

procedure t.deter;
begin
    writeln;
    writeln(' Matrik I ');
    writeln('              ');
    writeln(m1[1,1]:5,m1[1,2]:5,m1[1,3]:5 , '|' , m1[1,1]:5,m1[1,2]:5);
    writeln(m1[2,1]:5,m1[2,2]:5,m1[2,3]:5 , '|' , m1[2,1]:5,m1[2,2]:5);
    writeln(m1[3,1]:5,m1[3,2]:5,m1[3,3]:5 , '|' , m1[3,1]:5,m1[3,2]:5);
    gotoxy(35,2);writeln(' Matrik II ');
    gotoxy(35,4);writeln(m2[1,1]:5,m2[1,2]:5,m2[1,3]:5 , '|' , m2[1,1]:5,m2[1,2]:5);
    gotoxy(35,5);writeln(m2[2,1]:5,m2[2,2]:5,m2[2,3]:5 , '|' , m2[2,1]:5,m2[2,2]:5);
    gotoxy(35,6);writeln(m2[3,1]:5,m2[3,2]:5,m2[3,3]:5 , '|' , m2[3,1]:5,m2[3,2]:5);
    writeln;
    det1:=(m1[1,1]*m1[2,2]*m1[3,3])+(m1[1,2]*m1[2,3]*m1[3,1])+(m1[1,3]*m1[2,1]*m1[3,2])-(m1[3,1]*m1[2,2]*m1[1,3])-(m1[3,2]*m1[2,3]*m1[1,1])-(m1[3,1]*m1[2,1]*m1[1,2]);
    det2:=(m2[1,1]*m2[2,2]*m2[3,3])+(m2[1,2]*m2[2,3]*m2[3,1])+(m2[1,3]*m2[2,1]*m2[3,2])-(m2[3,1]*m2[2,2]*m2[1,3])-(m2[3,2]*m2[2,3]*m2[1,1])-(m2[3,1]*m2[2,1]*m2[1,2]);
    writeln;
    writeln('Determinan Matrik I : ',det1);
    writeln('Determinan Matrik II : ',det2);
    readln;
end;

procedure t.tambah;
begin
    writeln;
    writeln(' Penjumlahan Matrik ');
    writeln('---------------------------------------');
    lok[1]:=(m1[1,1]+m2[1,1]);
    lok[2]:=(m1[1,2]+m2[1,2]);
    lok[3]:=(m1[1,3]+m2[1,3]);
    lok[4]:=(m1[2,1]+m2[2,1]);
    lok[5]:=(m1[2,2]+m2[2,2]);
    lok[6]:=(m1[2,3]+m2[2,3]);
    lok[7]:=(m1[3,1]+m2[3,1]);
    lok[8]:=(m1[3,2]+m2[3,2]);
    lok[9]:=(m1[3,3]+m2[3,3]);
    writeln;
    writeln(lok[1]:5,lok[2]:5,lok[3]:5);
    writeln(lok[4]:5,lok[5]:5,lok[6]:5);
    writeln(lok[7]:5,lok[8]:5,lok[9]:5);
    readln;
end;

procedure t.kurang;
begin
    writeln;
    writeln(' Pengurangan Matrik ');
    writeln('---------------------------------------');
    lok[1]:=(m1[1,1]-m2[1,1]);
    lok[2]:=(m1[1,2]-m2[1,2]);
    lok[3]:=(m1[1,3]-m2[1,3]);
    lok[4]:=(m1[2,1]-m2[2,1]);
    lok[5]:=(m1[2,2]-m2[2,2]);
    lok[6]:=(m1[2,3]-m2[2,3]);
    lok[7]:=(m1[3,1]-m2[3,1]);
    lok[8]:=(m1[3,2]-m2[3,2]);
    lok[9]:=(m1[3,3]-m2[3,3]);
    writeln;
    writeln(lok[1]:5,lok[2]:5,lok[3]:5);
    writeln(lok[4]:5,lok[5]:5,lok[6]:5);
    writeln(lok[7]:5,lok[8]:5,lok[9]:5);
    readln;
end;

procedure t.transpos;
begin
    writeln;
    writeln(' Transpose Matrik I ');
    writeln(m1[1,1]:5,m1[2,1]:5,m1[3,1]:5);
    writeln(m1[1,2]:5,m1[2,2]:5,m1[3,2]:5);
    writeln(m1[1,3]:5,m1[2,3]:5,m1[3,3]:5);
    gotoxy(35,2);writeln(' Transpose Matrik II ');
    gotoxy(35,3);writeln(m2[1,1]:5,m2[2,1]:5,m2[3,1]:5);
    gotoxy(35,4);writeln(m2[1,2]:5,m2[2,2]:5,m2[3,2]:5);
    gotoxy(35,5);writeln(m2[1,3]:5,m2[2,3]:5,m2[3,3]:5);
    readln;
end;

begin
    repeat;
    clrscr;
    gotoxy(25,1);writeln(' *** Menu Matrik *** ');
    gotoxy(25,2);writeln(' 1. Input Matrik ');
    gotoxy(25,3);writeln(' 2. Transpose Matrik ');
    gotoxy(25,4);writeln(' 3. Determinan Matrik ');
    gotoxy(25,5);writeln(' 4. Penjumlahan Matrik ');
    gotoxy(25,6);writeln(' 5. Pengurangan Matrik ');
    gotoxy(25,7);writeln(' 6. Keluar ');
    gotoxy(25,8);write(' Pilihan [1..6] : ');
    readln(pil);
    case pil of
    1: begin
       m.input;
       m.tampil;
       end;
    2: begin
       clrscr;
       m.transpos;
       end;
    3: begin
       clrscr;
       m.deter;
       end;
    4: begin
       clrscr;
       m.tambah;
       end;
    5: begin
       clrscr;
       m.kurang;
       end;
    end;
    until (pil = 6);

end.

Ibu Kota, 23 April 2015

akhukumfillah arifzainurrohman

Read More

segitiga

oleh :

arif zainurrohman

uses crt;

var

baris,kolom:integer;

begin

clrscr;

for baris:= 1 to 5 do

begin

for kolom:= 5 downto baris do

write(kolom);

writeln;

end;

readln;

end.

uses crt;

var

Bahasa:string[20];

urutan,posisi:integer;

begin

clrscr;

bahasa:='54321';

for urutan:= 1 to 5 do

begin

posisi := 7-urutan;

delete(Bahasa,posisi,1);

writeln(Bahasa);

end;

readln;

end.

Ibu Kota, 26 juni 2014

akhukumfillah arifzainurrohman

Read More

Program mandiri Bag. (5)

oleh :

arif zainurrohman

danni setiadi

sepdia mautia putri

Ibu kota , 10 Oktober 2013

Akhukum fillah arif zainurrohman

Read More

Program mandiri Bag. (4)

oleh :

arif zainurrohman

danni setiadi

sepdia mautia putri

Else

Begin

Clrscr;

title;

BukaFile;

Ada:=False;

x:=31;y:=6;

Gotoxy(x+1,y+1);Write('-----------------');

Gotoxy(x,y+2);Write('Atas Nama : ');Readln(NOCR);

if NOCR = '' then

goto dulas;

While (Ada=False) And (i<>Filesize(Filekaraoke)) Do

Begin

Seek(Filekaraoke,i);

Read(Filekaraoke,Data);

If Data.nama=NOCR Then

Ada:=True

Else

Inc(i);

End;

If (Ada=True) Then

Begin

clrscr;

title;

Gotoxy(x-5,y+7);Write(' Anda Member! ');

Gotoxy(x-5,y+8);write('Nama : ',NOCR);

repeat

Gotoxy(x-5,y+9);Write('Jam Masuk : ');readln(j[1].jam);

if j[1].jam > 24 then

until j[1].jam <25;

tilas:

Gotoxy(x-5,y+10);Write('Jam Keluar : ');readln(j[2].jam);

if (j[2].jam > 24) or (j[2].jam < j[1].jam) then

goto tilas;

j[3].jam:=j[2].jam-j[1].jam;

luh:

Gotoxy(x-5,y+11);Write('Jenis Ruangan : ');readln(jenru) ;

if (jenru='') then

goto luh;

clrscr;

Gotoxy(28,2);writeln(teks2);

Gotoxy(1,y-2);Writeln(garspas);

Gotoxy(x-5,5);Writeln(' Nama : ',NOCR);

Gotoxy(x-5,6);Writeln(' Waktu Masuk : ',j[1].jam);

Gotoxy(x-5,7);Writeln(' Waktu Keluar : ',j[2].jam);

Gotoxy(1,8);Writeln(garspas);

lan:

Gotoxy(x-5,10);Writeln(' Jenis Ruangan : ',jenru);

if (jenru='') then

goto lan;

harga1:=j[3].jam*200000;

harga2:=j[3].jam*100000;

pajak:=10000;

if (jenru = 'VVIP') or (jenru = 'vvip') then

begin

Gotoxy(x-5,11);write (' Harga : Rp. ',harga1:10:2);

potongan:=0.1*harga1;

total:=harga1+pajak-potongan;

end else

if (jenru = 'VIP') or (jenru = 'vip') then

begin

Gotoxy(x-5,12);write (' Harga : Rp. ',harga2:10:2);

potongan:=0.1*harga2;

total:=harga2+pajak-potongan;

end;

Gotoxy(x-5,13);Writeln(' Pajak : Rp. ',pajak:10:2);

Gotoxy(x-5,14);Writeln(' Potongan : Rp. ',potongan:10:2);

Gotoxy(x-5,15);Writeln(' Total : Rp. ',total:10:2);

Gotoxy(1,16);Writeln(garspas);

malas:

gotoxy(x-5,17);write(' Uang dibayar : Rp. ');

gotoxy(x+21,17);readln(ubay);

if ubay < total then

goto malas;

gotoxy(x+20,17);writeln(ubay:10:2);

ukem:=ubay - total;

Gotoxy(x-5,18);Writeln(' Uang Kembali : Rp. ',ukem:10:2);

Gotoxy(1,19);Writeln(garspas);

Gotoxy(1,y+14);Writeln(' ARDASEP PALEMBANG ');

Gotoxy(1,y+15);Writeln(' JL. IMPIAN BLOK X NO Y ');

Gotoxy(1,y+16);Writeln(' PALEMBANG ');

Gotoxy(35,y+15);Writeln(' Phone : (0711) 1234567 ');

End

Else

Begin

Gotoxy(x-5,y+7);Write(' Anda Bukan Member! ');

Gotoxy(x-5,y+8);write('Nama : ',NOCR);

repeat

Gotoxy(x-5,y+9);Write('Jam Masuk : ');readln(j[1].jam);

if j[1].jam > 24 then

until j[1].jam <25;

patlas:

Gotoxy(x-5,y+10);Write('Jam Keluar : ');readln(j[2].jam);

if (j[2].jam > 24) or (j[2].jam < j[1].jam) then

goto patlas;

j[3].jam:=j[2].jam-j[1].jam;

ju:

Gotoxy(x-5,y+11);Write('Jenis Ruangan : ');readln(jenru) ;

if (jenru='') then

goto ju;

clrscr;

Gotoxy(28,2);writeln(teks2);

Gotoxy(1,y-2);Writeln(garspas);

Gotoxy(x-5,5);Writeln(' Nama : ',NOCR);

Gotoxy(x-5,6);Writeln(' Waktu Masuk : ',j[1].jam);

Gotoxy(x-5,7);Writeln(' Waktu Keluar : ',j[2].jam);

Gotoxy(1,8);Writeln(garspas);

nam:

Gotoxy(x-5,10);Writeln(' Jenis Ruangan : ',jenru);

if (jenru='') then

goto nam;

harga1:=j[3].jam*200000;

harga2:=j[3].jam*100000;

pajak:=10000;

if (jenru = 'VVIP') or (jenru = 'vvip') then

begin

Gotoxy(x-5,11);write (' Harga : Rp. ',harga1:10:2);

potongan:=0;

total:=harga1+pajak-potongan;

end else

if (jenru = 'VIP') or (jenru = 'vip') then

begin

Gotoxy(x-5,12);write (' Harga : Rp. ',harga2:10:2);

potongan:=0;

total:=harga2+pajak-potongan;

end;

Gotoxy(x-5,13);Writeln(' Pajak : Rp. ',pajak:10:2);

Gotoxy(x-5,14);Writeln(' Potongan : Rp. ',potongan:10:2);

Gotoxy(x-5,15);Writeln(' Total : Rp. ',total:10:2);

Gotoxy(1,16);Writeln(garspas);

namlas:

gotoxy(x-5,17);write(' Uang dibayar : Rp. ');

gotoxy(x+21,17);readln(ubay);

if ubay < total then

goto namlas;

gotoxy(x+20,17);writeln(ubay:10:2);

ukem:=ubay - total;

Gotoxy(x-5,18);Writeln(' Uang Kembali : Rp. ',ukem:10:2);

Gotoxy(1,19);Writeln(garspas);

Gotoxy(1,y+14);Writeln(' ARDASEP PALEMBANG ');

Gotoxy(1,y+15);Writeln(' JL. IMPIAN BLOK X NO Y ');

Gotoxy(1,y+16);Writeln(' PALEMBANG ');

Gotoxy(35,y+15);Writeln(' Phone : (0711) 1234567 ');

End;

Gotoxy(x-3,y+19);Write('Mau Data Lain [Y/T]: ');Lagi:=Upcase(Readkey);

End;

Until Lagi<>'Y';

End;

Procedure arif;

begin

end;

Procedure Anggota;

var

pal:char;

Begin

Clrscr;

title;

x:=30; y:=6;

Gotoxy(35,y);Write('MENU PENGURUSAN ANGGOTA');

Gotoxy(34,y+1);Write('============');

Gotoxy(x,y+2);Write('1. TAMBAH ANGGOTA');;

Gotoxy(x,y+3);Write('2. TAMPILKAN DATA ANGGOTA');

Gotoxy(x,y+4);Write('3. HAPUS DATA ANGGOTA');

Gotoxy(32,y+5);Write('Pilihan [1..3]: ');Pal:=Readkey;

Case pal of

'1' :Tambah;

'2' :Tampil;

'3' :Hapus;

end;

End;

Procedure Ruangan;

var

pel:char;

Begin

Clrscr;

title;

x:=30; y:=6;

Gotoxy(35,y);Write('MENU PENGURUSAN RUANGAN');

Gotoxy(34,y+1);Write('============');

Gotoxy(x,y+2);Write('1. TAMBAH DATA RUANGAN');

Gotoxy(x,y+3);Write('2. TAMPILKAN DATA RUANGAN');

Gotoxy(x,y+4);Write('3. UBAH STATUS RUANGAN');

Gotoxy(x,y+5);Write('4. HAPUS DATA RUANGAN');

Gotoxy(32,y+6);Write('Pilihan [1..4]: ');Pel:=Readkey;

Case pel of

'1' :Tambah1;

'2' :Tampil1;

'3' :Edit;

'4' :Hapus1;

end;

End;

Begin

Repeat

Menu;

Case Pil Of

'1' : Anggota;

'2' : Ruangan;

'3' : Pelanggan;

'4' : Akhir;

end;

Until (Pil='4');

End.

Ibu kota , 10 Oktober 2013

akhukum fillah arif zainurrohman

Read More

Program mandiri Bag. (3)

oleh :

arif zainurrohman

danni setiadi

sepdia mautia putri

End

Else

Inc(i);

End;

If (Ada=True) Then

Begin

Data.Kdmember:=NOCR;

x:=46;y:=7;

tiga:

Gotoxy(X,y+5);Write('Status Ruangan : ');readln(Data1.status);

if (Data1.status='') then

goto tiga;

Seek(Filetempat,i);

Write(Filetempat,Data1);

End

Else

Begin

Gotoxy(20,13);Write('Kode Ruangan Atau Jenis Ruangan Ini Tidak Ada!');

End;

Gotoxy(24,17);Write('Apakah Mau Edit Data Lain [Y/T]: ');Lagi:=Upcase(Readkey);

Until Lagi<>'Y';

End;

Close(Filetempat);

End;

Procedure Hapus;

Var

FileTmp : File of karaoke;

Lagi,Hapus : Char;

Ada : Boolean;

i : Integer;

NOCR : Word;

Begin

Lagi:='Y';

Clrscr;

title;

Repeat

BukaFile;

If IOResult<>0 Then

Write('Data Masih Kosong...!')

Else

Begin

Clrscr;

title;

Assign(FileTmp,'karaoke.tmp');

Rewrite(FileTmp);

Ada:=False;

i:=0;

x:=31;y:=6;

Gotoxy(x+2,y);Write('HAPUS DATA MEMBER');

Gotoxy(x+1,y+1);Write('-----------------');

Gotoxy(x,y+2);Write('Kode Member : ');Readln(NOCR);

While (Ada=False) And (i<>Filesize(Filekaraoke)) Do

Begin

Seek(Filekaraoke,i);

Read(Filekaraoke,Data);

If Data.Kdmember=NOCR Then

Ada:=True

Else

Inc(i);

End;

If (Ada=True) Then

Begin

Gotoxy(X,y+3);Write('Nama : ');writeln(Data.nama);

Gotoxy(x-8,y+9);Write('Apakah Data Ini Mau Di Hapus [Y/T]: ');Readln(Hapus);

If Upcase(Hapus)='Y' Then

Begin

For i := 1 to Filesize(Filekaraoke) Do

Begin

Seek(Filekaraoke,i-1);

Read(Filekaraoke,Data);

If Data.Kdmember<>NOCR Then

Write(FileTmp,Data);

End;

Close(Filekaraoke);

Assign(Filekaraoke,'karaoke.txt');

Erase(Filekaraoke);

Assign(FileTmp,'karaoke.tmp');

Rename(FileTmp,'karaoke.txt');

Gotoxy(x-8,y+9);Write(' Member ',NOCR,' Sudah Di Hapus! ');

End;

End

Else

Begin

Gotoxy(x-4,y+9);Write('Member ',NOCR,' Ini Tidak Ada!');

End;

Gotoxy(x-3,y+10);Write('Mau Hapus Data Lain [Y/T]: ');Lagi:=Upcase(Readkey);

End;

Until Lagi<>'Y';

End;

Procedure Hapus1;

Var

FileTemp : File of tempat;

Lagi,Hapus : Char;

Ada : Boolean;

i : Integer;

NOCR : Word;

Begin

Lagi:='Y';

Clrscr;

title;

Repeat

Buka;

If IOResult<>0 Then

Write('Data Masih Kosong...!')

Else

Begin

Clrscr;

title;

Assign(FileTemp,'tempat.tmp');

Rewrite(FileTemp);

Ada:=False;

i:=0;

x:=31;y:=6;

Gotoxy(x+2,y);Write('HAPUS DATA RUANGAN');

Gotoxy(x+1,y+1);Write('-----------------');

Gotoxy(x,y+2);Write('Kode Ruangan : ');Readln(NOCR);

While (Ada=False) And (i<>Filesize(Filetempat)) Do

Begin

Seek(Filetempat,i);

Read(Filetempat,Data1);

If Data1.Kdruang=NOCR Then

Ada:=True

Else

Inc(i);

End;

If (Ada=True) Then

Begin

Gotoxy(X,y+3);Write('Ruangan : ');writeln(Data1.jenis);

Gotoxy(x-8,y+9);Write('Apakah Data Ini Mau Di Hapus [Y/T]: ');Readln(Hapus);

If Upcase(Hapus)='Y' Then

Begin

For i := 1 to Filesize(Filetempat) Do

Begin

Seek(Filetempat,i-1);

Read(Filetempat,Data1);

If Data1.Kdruang<>NOCR Then

Write(FileTemp,Data1);

End;

Close(Filetempat);

Assign(Filetempat,'tempat.txt');

Erase(Filetempat);

Assign(FileTemp,'tempat.tmp');

Rename(FileTemp,'tempat.txt');

Gotoxy(x-8,y+9);Write(' Ruangan ',NOCR,' Sudah Di Hapus! ');

End;

End

Else

Begin

Gotoxy(x-4,y+9);Write('Ruangan ',NOCR,' Ini Tidak Ada!');

End;

Gotoxy(x-3,y+10);Write('Mau Hapus Data Lain [Y/T]: ');Lagi:=Upcase(Readkey);

End;

Until Lagi<>'Y';

End;

Procedure Tampil;

Var

i,n : Integer;

Begin

clrscr;

title;

BukaFile;

If IOResult <> 0 Then

Begin

gotoxy(30,11);

Write('Maaf Data Masih Kosong ! ');

end

Else

Begin

Clrscr;

title;

x:=7;y:=9;

gotoxy(x+26,y-3); write('.::DATA MEMBER::.');

gotoxy(x,y-2); write(garsed2);

gotoxy(x,y-1); writeln('|No|KODE| NAMA |');

gotoxy(x,y); write(garsed1);

i:=0;

While Not EoF(Filekaraoke) Do

Begin

Inc(i);

Read(Filekaraoke,Data);

gotoxy(x,y+i); write('| ',i);

gotoxy(x+3,y+i); write('|'); writeln(data.kdmember);

gotoxy(x+8,y+i); write('|'); writeln(data.nama);

gotoxy(x+35,y+i); write('|');

End;

Close(Filekaraoke);

End;

Writeln;

writeln(garspas);

Write(' Tekan Enter untuk Kembali Kemenu Utama');Readln;

End;

Procedure Tampil1;

Var

i,n : Integer;

Begin

clrscr;

title;

Buka;

If IOResult <> 0 Then

begin

gotoxy(30,11);

Write('Maaf Data Masih Kosong ! ');

end

Else

Begin

Clrscr;

title;

x:=7;y:=9;

gotoxy(x+26,y-3); write('.::DATA RUANGAN::.');

gotoxy(x,y-2); write(garsed2);

gotoxy(x,y); write(garsed1);

i:=0;

While Not EoF(Filetempat) Do

Begin

Inc(i);

Read(Filetempat,Data1);

gotoxy(x,y+i); write('| ',i);

gotoxy(x+3,y+i); write('|'); writeln(data1.kdruang);

gotoxy(x+8,y+i); write('|'); writeln(data1.jenis);

gotoxy(x+25,y+i); write('|');writeln(data1.status);

gotoxy(x+41,y+i); write('|');writeln(data1.kapasitas);

gotoxy(x+53,y+i);write('|');

End;

Close(Filetempat);

End;

Writeln;

writeLN(garspas);

Write(' Tekan Enter untuk Kembali Kemenu Utama');Readln;

End;

Procedure Pelanggan;

Var

FileTmp : File of karaoke;

Lagi : Char;

Ada : Boolean;

i : Integer;

NOCR : string[10];

label pat,ma,nam,ju,pan,lan,luh,las,dulas,tilas,patlas,malas,namlas,julas;

Begin

Lagi :='Y';

Clrscr;

title;

Repeat

BukaFile;

If IOResult<>0 Then

Write('Data Masih Kosong...!')

Ibu kota , 10 Oktober 2013

akhukum fillah arif zainurrohman

Read More

Matriks Ordo 3 (Pascal)

segitiga

Program mandiri Bag. (5)

Program mandiri Bag. (4)

Program mandiri Bag. (3)

Entri Populer

Arsip Blog