program turbo pascal, penjualan mobil

var biaya :real;
jenis,kelas,kelas1:char;
begin
clrscr;
write(‘sewa keendaraan-mobil-sepeda motor:’);
readln(jenis);
write(‘tipe kendaraan-mewah-biasa-jadul:’);
readln(kelas);
writeln;
if(jenis)=’a’then
begin
if kelas=’a’then
biaya:=1000000
else
if kelas=’b’then
biaya:=1000000
uses crt;
else
biaya:=850000
end
else
s>=’a’)then
biaya:=187.00000
else
if (jeni
if kelas=’a’then
biaya:=187.000
else
if kelas=’b’then
biaya:=900000
else
begin
biaya:=4000000;
end;
writeln(‘biaya sewa:’,biaya:7:0);
readln;
end.

program pascal
program penjualan mobil