Program lesson2_Program3;
Var PD, Dname, Cmodel : String;
TotalKM, CostPD, TCostPD, Distance : Real;
{real is a decimal (described later)}
begin
TCostPD := 0;
{perhatikan ini disebut \'inisialisasi\'.
penting untuk menginisialsasi variabel dengan 0
agar variabel ini di \'refresh\' dari sebelumnya
meng- 0 kan isi variabel.}
Writeln(\'Program ini meminta anda untuk \'+
+\'memasukkan biaya per-liter dari\');
Writeln(\'bensin yang anda gunakan \'+
+\'dalam rata-rata jarak yang anda lalui\');
Writeln(\'dengan mobil anda setiap minggunya. kemudian \'+
+\'kemudian computer akan menghitung biayanya\');
Writeln(\'you spend in fuel every week.\');
Readln;
Write(\'Bensin atau Pertamax?: \');
Readln(PD);
Write(\'Nama pengemudi: \');
Readln(Dname);
Write(\'Model mobil: \');
Readln(Cmodel);
Write(\'Harga per liter: (£) \');
Readln(CostPD);
Writeln(\'Jarak rata-rata yang anda tempuh \'+
+\'dengan mobil setiap minggu: (kilometres) \');
Readln(Distance);
Writeln;
Writeln;
Writeln(\'Nama Pengemudi:\',Dname);
Writeln(\'Model mobil:\',Cmodel);
Writeln(\'Bensin/ Pertamax:\',PD);
Writeln(\'Jarak rata-rata \'+
+\'setiap minggu: \',Distance:1:2,\'Km\');
Writeln(\'Harga \',PD,\' per liter: £\',CostPD:1:2,\'/liter\');
Writeln;
Writeln;
TCostPD := Distance * CostPD;
Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
+\'£\',TCostPD:1:2); {perhatikan ini,}
TCostPD := 0;
Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
+\'£\',(Distance * CostPD):1:2); {ini}
Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
+\'£\',Distance * CostPD); {dan ini - tanpa \':1:2\'}
readln;
End.