SCJ1 No 4

program harga;
uses crt;
var jarak,bayar:integer;
begin
        clrscr;
        write('Jarak tempuh(km)= ');
        read(jarak);
        if (jarak = 1) then
        begin
                bayar:=5000;
        end
        else
        begin
                bayar:=(jarak-1)*1000+5000;
        end;
        writeln('Bayar= ',bayar);
        readkey;
end.