Kod:
Uses crt; Var ad : string[20]; fiyat :real; tfiyat : real; Begin Clrscr; write('Urun İsmi....:');readln(ad); write('Fiyatı.....:');readln(fiyat); tfiyat:=fiyat*1.15; writeln; writeln('Ürünün Kdv'li Fiyatı ... : ',tfiyat:9:2,'YTL'); Readln; End.
Uses crt; Var ad : string[20]; fiyat :real; tfiyat : real; Begin Clrscr; write('Urun İsmi....:');readln(ad); write('Fiyatı.....:');readln(fiyat); tfiyat:=fiyat*1.15; writeln; writeln('Ürünün Kdv'li Fiyatı ... : ',tfiyat:9:2,'YTL'); Readln; End.
