My site

Program Mengukur_Kecepatan

uses Wincrt;

var

   jarak:integer;

   waktu:integer;

   kecepatan:integer;

begin

     Writeln('Masukkan Jarak yang ditempuh    ');readln(jarak);

     Writeln('Masukkan waktu yang ditempuh    ');readln(waktu);

     writeln;

     writeln;

     kecepatan:=jarak div waktu;

     writeln('Kecepatan anda sekarang adalah  ',kecepatan,'  Km/jam');

     if kecepatan > 2 then

     begin

          Writeln('Kebanteren mas');

     end

     else

         begin

              Writeln('kelambaten');

         end;

end.