Isikan pada DosBox dengan script berikut ;

program biaya_parkir;

uses crt;

var

lp,bp,byr:integer;

begin

clrscr;

write(‘lama parker:’);readln(lp);

write(‘biaya perjam:’);readln(bp);

if(lp<=1) then byr:=3000

else byr:=3000 +(1p-1)*2000;

writeln(‘biaya parker yang harus dibayar:Rp ‘ ,byr);

readln

end

Dan hasilnya

NB : contoh diatas biaya parkir perjam  Rp 3000