FLOWCHART PENJUALAN BARANG(TV SONY)

USES CRT;
 Var
 Nbarang:string;
 jml jual,discount:integer;
hrg,Tharga,tpembayaran:longint;
 Begin
clrscr;
 write('Nama barang',);readln(N);
 write('harga barang',);readln(Hrg);
 write('jml jual',);readln(jml);
Tharga=hrg*jml jual
 tpembayaran=Tharga-discount
 if Thrg>2500000 then
 discount:=0.1 *Tharga
else discount:=0;
 writeln('harga:',harga);
writeln(tpembayaran:',Tharga);
 readln;
 end.