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.

ARKADASLAR KOMUTLARI OLDUGU GIBI PASCALA GİRİN YAPACAKSINIZ