Listing Program Penyewaan Mobil

uses crt;
label
awal,akhir;
procedure garis;
begin
writeln('=============================================================');
end;
var
jm,mm:array [1..10] of string;
ls,h,tt:array [1..10] of longint;
j:char;
a: byte;
b:string;
begin
awal:
clrscr;
gotoxy(35,1);writeln('PENYEWAAN MOBIL');
garis;
gotoxy(1,3);write('Nama Penyewa :');readln(b);
writeln;
for a:= 1 to 1 do
begin
write('Jenis Mobil :');readln(jm[a]);
if jm[a] ='J' then
begin
mm[a]:='Cheroke';
h[a]:=500000;
end;
if jm[a]='S' then
begin
mm[a]:='Baleno';
h[a]:=600000;
end;
writeln('Merk Mobil :',mm[a]);
write('Lama sewa :');readln(ls [a]);
tt[a]:= ls[a]*h[a];
writeln('Total :',tt[a]);
garis;
gotoxy(35,11);writeln('STRUK PENYEWAAN');
garis;
gotoxy(1,13);writeln('Nama:',(b));
garis;
gotoxy(5,15);writeln('| No| Jenis Mobil | Merk Mobil | Lama sewa | Harga | Total |');
garis;
for a:= 1 to 1 do
gotoxy(1,17);writeln(a:7,jm[a]:14,mm[a]:16,ls[a]:12,h[a]:11,tt[a]:12);
garis;
write('Input Lagi :');readln(j);
if j='Y' then
goto awal
else
goto akhir;
akhir:
readln;
end;
end.

Rancangan Input

Jika Jenis mobil = 'J' maka Merk Mobil 'Cheroke'
Jika Jenis mobil = 'S' maka Merk mobl 'Baleno'

Semoga Bermanfaat!!!!