Kdv oranını bulup kdv sini ve kdv dahil fiyatını gösterir Kod: uses crt; var anapara,kdvoran,kdv:real; begin textcolor(3); writeln('Anaparayi Giriniz: '); readln(anapara); writeln('Kdv Oranini Giriniz: '); readln(kdvoran); kdv:=(anapara/100)*kdvoran; writeln('Kdv si ',kdv:100:2,' dir.'); writeln(' Kdv Dahil Fiyati :',(anapara+kdv):100:2,' dir.'); readln; end.