(* Basit Bir Program ama heryerde kullanılıo  *)
Uses crt;
Var
ad : string[20];
fiyat :real;
tfiyat : real;
Begin
Clrscr; (* Clrscr ile ekranı temizliyoruz *)
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.