KDV Programı

Kdv oranını bulup kdv sini ve kdv dahil fiyatını gösterir

Code:

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.