bersarang

program toko_baju;

uses crt;
var
nama_barang:string;
jml_barang:integer;
bonus:longint;

begin
clrscr;

writeln('masukan nama barang : ');
readln(nama_barang);
writeln('masukan jumlah barang : ');
readln(jml_barang);



if (jml_barang<=0) then
begin
writeln('masukan jumlah lebih dari 0');
readln;
end

else
begin
    if (jml_barang <= 2) then
        begin
            bonus:=20000;
                writeln('nama barang : ',nama_barang);
                writeln('jumlah barang : ',jml_barang);
                writeln('bonus : ',bonus);
                readln;


        end

else
            begin
            bonus:=50000;
            writeln('nama barang : ',nama_barang);
            writeln('jumlah barang : ',jml_barang);
            writeln('bonus : ',bonus);
            readln;

        end
    end;


end.