program kdv;
uses crt;
var
kdv,top:real;
fiyat:integer;
ad,soyad:string;
begin
clrscr;
textcolor(white);
write('MUSTERININ ADI:');readln(ad);
write('MUSTERININ SOYADI:');readln(soyad);
write('URUNUN FIYATI:');readln(fiyat);
kdv:=fiyat*1.18;
top:=kdv+fiyat;
writeln('ADI:',AD);
writeln('SOYADI:',soyad);
writeln('KDV:',kdv:0:0);
writeln(`Toplam Tutar:`,top);
readln;
end.
Ali Eren Simsek
shimseqh
shimseqh
shimseqh_76@hotmail.com