Latihan 6: Program menghitung Bus dan Mikrolet yang Berangkat dan Sisa Pendaftar

Program Hitung_Jumlah_Bus_dan_Mikrolet_yang_Berangkat_dan_Sisa_Pendaftar;
uses wincrt;
var
pendaftar,jumlahbus,jumlahmikrolet,sisa:integer;
begin
clrscr;
   writeln('Masukkan Jumlah Pendaftar=');readln(pendaftar);
   JumlahBus:=pendaftar div 50;
   JumlahMikrolet:=pendaftar mod 50 div 11;
   Sisa:=pendaftar mod 50 mod 11;
   writeln('Jumlah Bus berangkat adalah= ',jumlahbus,' bus');
   writeln('Jumlah Mikrolet berangkat adalah= ',jumlahmikrolet,' mikrolet');
   writeln('Sisa pendaftar adalah = ',sisa,' orang');
end.