Soru 15: Döviz kurunu Türk Lira’sına çeviren program

 

{Döviz kurunu TL'ye çeviren program}

program dovizcev;

uses crt;

var

 kur,miktar,tl:longint;

begin

  clrscr;

  write('Döviz kurunu giriniz :');

  readln(kur);

  write('Döviz miktarını giriniz :');

  readln(miktar);

  tl:=kur*miktar;

  write(miktar,' birim döviz karşılığı Türk Lirası :',tl);

  readkey;

end.