1. Program untuk menghitung sewa sebuah Angkutan yang harga untuk 1 Km pertama Rp.4500 dan selanjutnya 2000/Km
Nah untuk membuat programnya ketikkan script di bawah ini di pascal
program Sewa_Angkutan;
uses crt;
const
pertama = 4500;
lanjut = 2000;
var
jarak,bayar : longint;
begin
clrscr;
writeln(' PROGRAM SEWA ANGKUTAN ');
writeln('---------------------------------');

