pemograman penjualan motor | program turbo pascal

program penjualan_motor;
uses crt;

var
nama_motor : string;

harga, total, jumlah : real;

begin

clrscr;

total :=harga * jumlah;
writeln(‘masukkan nama motor : ‘); readln(nama_motor);
writeln(‘masukkan jumlah : ‘); readln(jumlah);
if nama_motor=’SUZUKI SPIN 125’then
begin
harga :=22000000;
writeln(‘harga:’,harga:5:2);
total:=harga*jumlah;
writeln(‘total:’,total:5:2);

end
else
if nama_motor=’VESPA 946’then
begin
harga:= 50000000;
writeln(‘harga:’,harga:5:2);
total:=harga*jumlah;
writeln(‘total:’,total:5:2);

end
else
if nama_motor= ‘YAMAHA F1ZR’then
begin
harga:= 3500000;
writeln(‘harga:’,harga:5:2);
total:=harga*jumlah;
writeln(‘total:’,total:5:2);

end
else
if nama_motor= ‘KAWASAKI NINJA R’then
begin
harga:= 8500000;
writeln(‘harga:’,harga:5:2);
total:=harga*jumlah;
writeln (‘total:’,total:5:2);

end
else
if nama_motor= ‘HONDA VARIO’then
begin
harga := 21300000;
writeln(‘harga:’,harga:5:2);
total:=harga*jumlah;
writeln(‘total:’,harga:5:2);

end
else
if nama_motor= ‘YAMAHA VIXION’then
begin
harga:= 26000000;
writeln(‘harga:’,harga:5:2);
total:=harga*jumlah;
writeln(‘total:’,total:5:2);

end;
readln;
end.
CP RAHMATILLAH