Programalama > PASCAL

{************************************************}
{                                                }
{   Turbo PASCAL                                 }
{   (Let me blow your mind). by Spykids          }
{                                                }
{************************************************}
uses crt;
var
kdv:real;
fiat:integer;
ad,soyad:string;
begin
clrscr;
write('MŸterinin ADI..:');readln(ad);
write('MŸterinin SOYADI..:');readln(soyad);
write('šrnn Fiyat..:');readln(fiat);
kdv:=fiat*1.18;
writeln;clrscr;textcolor(white);
writeln('Ad..:',AD);writeln('Soyad..:',soyad);writeln('KDV..:',kdv:0:0);
readln;end.