Sistem Kasir Dalam Program Pascal

haiii kali ini aku bakal ngasih contoh ke kalian salah satu program pascal yang bisa kalian manfaatin atau buat menambah pengetahuan tentang pascal,,,
gak usah bas-basi dehh,,, langsung aja silahkan di lihat,,,,:)


program Cassir;
uses wincrt;
label 1,2;
var   pass,pil:string;
mail:string;
   nama:array[1..20] of string;
   i:byte;
   jumlah:array[1..100] of real;
   harga:array[1..100] of real;
   jumlah_harga,total_harga,diskon,total_bayar,uang,back:real;
begin
2:clrscr;
writeln('<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>');                      
writeln('                            BIG SWALAYAN TOWN SQUARE');
writeln('     Please, Insert The Pasword To open and Insert Data To This Programe');
writeln('--------------------------------------------------------------------------------');
  write('E-Mail                      : ');readln(mail);
  write('Password Program            : ');pass:=readkey;
writeln('________________________________________________________________________________');

if pass='b' then

begin
1:clrscr;
writeln('>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?');
writeln('                                  BIG SWALAYAN TOWN SQUARE');
writeln('~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`');
writeln;
write(' Masukkan Jumlah Barang yang Akan Dihitung Harganya           = ');
readln(i);
clrscr;
writeln('>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>');
writeln(':                                  Cassir Pembayaran                          :');
writeln('>                              BIG SWALAYAN TOWN SQUARE                       <');                    
writeln(':                                   First Centre                              :');
writeln('~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~');
total_harga:=0;
for i:=1 to i do
begin
writeln('--------------------------------------------------------------------------------');
  write('Nama Barang                                   = ');readln(nama[i]);
  write('Jumlah Barang                                 = ');readln(jumlah[i]);
  write('Harga Barang                                  = ');readln(harga[i]);
jumlah_harga:=harga[i]*jumlah[i];
writeln(' .". jumlah Harga                             Rp. ', jumlah_harga:4:0);
writeln;
writeln('================================================================================    ');

total_harga:=total_harga+jumlah_harga;
end;
writeln;
 writeln('Total Harga                                   Rp ',  total_harga:4:0);
writeln;
      if (total_harga>=0)and (total_harga<50000) then
       begin                                                                              
        diskon:=0*total_harga;
       end;
         if (total_harga>=50000) and (total_harga<100000) then
         begin
          diskon:=0.01*total_harga;
         end;
          if (total_harga>=100000) and (total_harga<500000) then
          begin
           diskon:=0.03*total_harga;
           end;
            if (total_harga>=500000) and (total_harga<1000000) then
             begin
              diskon:=0.05*total_harga;
             end;
               if total_harga>=1000000 then
               begin
                diskon:=0.1*total_harga;
               end;
 writeln('Anda Memperoleh Diskon Sebesar                Rp ',diskon:4:0);
writeln;
total_bayar:=total_harga-diskon;
 writeln('Total Pembayaran Setelah Mendapat Diskon      Rp ',total_bayar:4:0);
 writeln;
 writeln('-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-');
   write('..".. Masukkan Jumlah Uang Bayar              Rp ');readln(uang);
 writeln;
 back:=uang-total_bayar;
 writeln('..".. Sisa Uang Bayar                         Rp ',back:4:0);

 writeln('+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+    ');
 writeln;
 writeln(' Press " 0 " for back to main menu OR Press " Q " to quit');
 pil:=readkey;
 if pil = '0' then
 begin
 goto 1;
 end;
 if pil = 'q' then
 begin
 clrscr;
 exit;
 end
 else
 begin
 goto 2;
 end;
 end
 else
 begin
 clrscr;
 writeln('><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><');
 writeln;
 writeln('          Sorry Bray, You can not insert..! because your Password is False ');
 writeln;
writeln('________________________________________________________________________________');
 writeln;                                                                               
 writeln('+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=');
 writeln('            To Try Again...! Please, Press "0"  OR Other Keys To Quit');
 pil:=readkey;
 if pil = '0' then
 begin
 goto 2;
 end
 else
 begin
 clrscr;
 exit;
 end;
 end;
end.



yaaahhh coba dan semoga bermanfaat untuk menambah pengetahuan kita ya,,,,,,,,
makasih :)