Jadiin Yang Tercerdas !!!

Berikut ini adalah contoh program menggunakan bahasa pemrograman Pascal untuk menginput 1 buah bilangan bulat positif dan menampilkan hasil bagi dan sisa bagi bilangan tersebut dengan angka 1 sampai 10 (menggunakan perulangan while-do):

program bilangan_bulat;

var

n: integer; // variabel untuk menyimpan bilangan bulat

i: integer; // variabel counter

begin

writeln('Input sebuah angka:');

readln(n); // input bilangan bulat

i := 1; // set counter ke 1

while i <= 10 do // looping sampai i <= 10

begin

writeln(n, ':', i, '=', n div i, 'sisa', n mod i); // tampilkan hasil bagi dan sisa bagi

i := i + 1; // increment counter

end;

end.