PROGRAM PEMBAYARAN ( Pascal )

Program Pembayaran;
uses wincrt;
var a,x,y,z,b,c:longInt;
begin
write('Masukan Jumlah Sapu Tangan Yang Dibeli:');
readln(a);
writeln('________________________________________');
x:=a mod 12;
y:=(a-x)div 12;
z:=y*28000;
b:=x*3000;
c:=z+b;
writeln('DETIL PEMBAYARAN');
writeln(y,'LUSIN x Rp. 28.000=Rp.',z:10);
writeln(x,'BUAH x Rp. 3.000=Rp.',b:10);
writeln('_________________________________');
writeln('TOTAL PEMBAYARAN  =Rp.',c:10);
writeln;
writeln('....TERIMA KASIH.......');
End.