LATIHAN E NO 1

uses wincrt;
const
 pertama = 4500;
 lanjut  = 2000;
var
 jarak,bayar:integer;
begin
clrscr;
  write('Jarak Tempuh (Km)=');readln(Jarak);
if jarak>1 then
 begin
 Bayar:=pertama+(jarak*lanjut);
 end
else
 Bayar:=pertama;
writeln('Bayarnya = Rp.',Bayar);
readln;
end.
Hasilnlya akan nampak