program pascal belanja di supermarket

Program Belanja_di_Supermarket;
uses crt;
var a1,a2,a3,a4, d1,d2,d3,d4, e1,e2,e3,e4,
f1,f2,f3,f4, t1,t2,t3,t4, b:real; c1,c2,c3,c4:string;
begin clrscr;
writeln(' PENGHITUNGAN BELANJA DI SUPERMARKET'); readln;writeln;
writeln('Tiap belanja kelipatan Rp. 50000 akan mendapat satu kupon undian');
writeln;writeln;readln;
writeln('kode-kode benda:');
writeln('ketik 1 untuk Fanta 1500 ml');
writeln('ketik 2 untuk Jacket');
writeln('ketik 3 untuk Cool Helm');
writeln('ketik 4 untuk HVS 1 rim');
writeln;readln;
write('kode benda ke-1: '); readln(a1);
write('jumlah benda ke-1: '); readln(d1);
write('kode benda ke-2: '); readln(a2);
write('jumlah benda ke-2: '); readln(d2);
write('kode benda ke-3: '); readln(a3);
write('jumlah benda ke-3: '); readln(d3);
write('kode benda ke-4: '); readln(a4);
write('jumlah benda ke-4: '); readln(d4);
c1:='Fanta 1500 ml'; c2:='Jacket'; c3:='Cool Helm'; c4:='HVS 1 rim';
e1:=0; e2:=7.5; e3:=25; e4:=12.825;
f1:=1100; f2:=17500; f3:=189900; f4:=23750;
writeln(' PERINCIAN');writeln;
writeln('-----------------------------------------------------------------------------');
writeln('NAMA IKON HARGA SATUAN BANYAKNYA DISC(%) HARGA');
writeln('-----------------------------------------------------------------------------');
if a1=1 then begin
t1:=d1*(f1-(e1/100*f1));
writeln(c1,' ',f1:7:0,' ',d1:7:0,' ',e1:7:3,' Rp. ',t1:7:0);
end else if a1=2 then begin
t1:=d1*(f2-(e2/100*f2));
writeln(c2:0,' ',f2:7:0,' ',d1:7:0,' ',e2:7:3,' Rp. ',t1:7:0);
end else if a1=3 then begin
t1:=d1*(f3-(e3/100*f3));
writeln(c3:0,' ',f3:7:0,' ',d1:7:0,' ',e3:7:3,' Rp. ',t1:7:0);
end else if a1=4 then begin
t1:=d1*(f4-(e4/100*f4));
writeln(c4:0,' ',f4:7:0,' ',d1:7:0,' ',e4:7:3,' Rp. ',t1:7:0);
end;
if a2=1 then begin
t2:=d2*(f1-(e1/100*f1));
writeln(c1,' ',f1:7:0,' ',d2:7:0,' ',e1:7:3,' Rp. ',t2:7:0);
end else if a2=2 then begin
t2:=d2*(f2-(e2/100*f2));
writeln(c2:0,' ',f2:7:0,' ',d2:7:0,' ',e2:7:3,' Rp. ',t2:7:0);
end else if a2=3 then begin
t2:=d2*(f3-(e3/100*f3));
writeln(c3:0,' ',f3:7:0,' ',d2:7:0,' ',e3:7:3,' Rp. ',t2:7:0);
end else if a2=4 then begin
t2:=d2*(f4-(e4/100*f4));
writeln(c4:0,' ',f4:7:0,' ',d2:7:0,' ',e4:7:3,' Rp. ',t2:7:0);
end;
if a3=1 then begin
t3:=d3*(f1-(e1/100*f1));
writeln(c1,' ',f1:7:0,' ',d3:7:0,' ',e1:7:3,' Rp. ',t3:7:0);
end else if a3=2 then begin
t3:=d3*(f2-(e2/100*f2));
writeln(c2:0,' ',f2:7:0,' ',d3:7:0,' ',e2:7:3,' Rp. ',t3:7:0);
end else if a3=3 then begin
t3:=d3*(f3-(e3/100*f3));
writeln(c3:0,' ',f3:7:0,' ',d3:7:0,' ',e3:7:3,' Rp. ',t3:7:0);
end else if a3=4 then begin
t3:=d4*(f4-(e4/100*f4));
writeln(c4:0,' ',f4:7:0,' ',d3:7:0,' ',e4:7:3,' Rp. ',t3:7:0);
end;
if a4=1 then begin
t4:=d4*(f1-(e1/100*f1));
writeln(c1,' ',f1:7:0,' ',d4:7:0,' ',e1:7:3,' Rp. ',t4:7:0);
end else if a4=2 then begin
t4:=d4*(f2-(e2/100*f2));
writeln(c2:0,' ',f2:7:0,' ',d4:7:0,' ',e2:7:3,' Rp. ',t4:7:0);
end else if a4=3 then begin
t4:=d4*(f3-(e3/100*f3));
writeln(c3:0,' ',f3:7:0,' ',d4:7:0,' ',e3:7:3,' Rp. ',t4:7:0);
end else if a4=4 then begin
t4:=d4*(f4-(e4/100*f4));
writeln(c4:0,' ',f4:7:0,' ',d4:7:0,' ',e4:7:3,' Rp. ',t4:7:0);
end;
writeln;
writeln('Total Harga: Rp. ',t1+t2+t3+t4:7:0);
writeln;write('Berapa rupiah uang yang dibayarkan? '); readln(b);
if b>=(t1+t2+t3+t4) then begin
if (t1+t2+t3+t4)>= 50000 then begin
writeln;writeln;
writeln('Uang kembalian anda: Rp. ',b-(t1+t2+t3+t4):7:0);
writeln;writeln;writeln;writeln;
writeln('Selamat!? Anda mendapatkan ',trunc((t1+t2+t3+T4)/50000),' kupon undian');
writeln('Makin banyak kupon undian Anda');
writeln('Makin besar peluang Anda memenangkan sebuah sepeda motor');
writeln;writeln;writeln;writeln;writeln;writeln;
end;
writeln;writeln;writeln(' TERIMA KASIH');
end else
writeln('Maaf uang Anda tidak cukup untuk membayar pembelian anda');
readln end.