Soru 20: Vergi iadesi hesaplayan program

 

{Bir işçinin vergi iadesini hesaplayan program}

program vergi_iade;

uses crt;

var

  maas,toplamfatura:longint;

  iade:real;

begin

  clrscr;

  write('İşçinin maaşı :');

  readln(maas);

  write('Fatura toplamı :');

  readln(toplamfatura);

  if toplamfatura>maas then toplamfatura:=maas;

  if (toplamfatura>0) and (toplamfatura<=30000)  then

    iade:=toplamfatura*0.2;

  if (toplamfatura>30000) and (toplamfatura<=60000)  then

    iade:=30000*0.2+(toplamfatura-30000)*0.15;

  if (toplamfatura>60000) and (toplamfatura<=100000) then

    iade:=30000*0.2+30000*0.15+(toplamfatura-40000)*0.1;

  if (toplamfatura>100000) then

    iade:=30000*0.2+30000*0.15+40000*0.1+

          (toplamfatura-10000)*0.05;

  writeln('Toplam iade :',iade:12:2);

  readkey;

end.