Gaji.pas

Silahkan bagi yang membutuhkan resensi tentang TPW

program hitung_gaji;
uses wincrt;
var
Nama:string;
GP,GT,K,n,T :Real;

begin
write('Nama Sales = ');
read(Nama);
write('Jumlah Mobil yang terjual = ');
read(n);
write('Total Harga Mobil yang terjual(dalam jutaan) = ');
read(T);
GT:= 1;
GP:= GT + 0.1* n + 0.05*T;
write('Gaji Total(dalam Jutaan) = ',GP:2:2);
end.