ALINAN MİKTARA GÖRE KAMPANYA PROGRAMI

uses crt;
var
   istenen:real;
   begin
        clrscr;
        write('miktar giriniz:'); readln(istenen);
        if istenen <300 then writeln('verilen:',istenen)
        else if istenen<1000 then  writeln('verilen:',istenen+istenen*5/100:6:2)
        else if istenen<1500 then  writeln('verilen:',istenen+istenen*8/100:6:2)
        else if istenen<2000 then  writeln('verilen:',istenen+istenen*10/100:6:2)
        else if istenen<3000 then  writeln('verilen:',istenen+istenen*15/100:6:2)
        else if istenen<5000 then  writeln('verilen:',istenen+istenen*18/100:6:2)
        else writeln('verilen:',istenen+istenen*25/100:6:2);

           readln;
        end.