Menampilkan bilangan prima dari angka 1 s/d 20

Jawab :

1. bilangan prima hanya akan habis bila dibagi 1 dan bilangan itu sendiri.
2. sehingga pasti akan ada sisa hasil bagi (mod) jika dibagi bilangan lebih dari 1 (kecuali 2) sampai bilangan sebelum bilangan itu (x-1).
3. mencetak 2 terlebih dahulu ke layar.
4. mengeset status bilangan prima menjadi true.
5. beri nilai  =1 (menandakan bilangan prima).
6. melakukan pengecekan mulai dari 2 sampai x-1.
7. jika x habis dibagi bilangan yang ada antara 2 sampai x-1, berarti x bukan bilangan prima. Variabel prima yang awalnya true berubah jadi false dan pengecekan tidak perlu dilanjutkan (break).
8. jika dari bilangan antara 2 sampai x-1 tak satupun yang habis dibagi, maka variabel prima yang dideklarasikan sebagai true tidak berubah nilai (tetap true). Sehingga bilangan tersebut adalah bilangan prima dan akan ditampilkan ke layar.
9. tambahkan nilai x dengan 1 dan ulangi dari langkah ke-5 sampai nilai x= 20

    uses crt;

    var x,y:  integer;

    prima: boolean;

    begin

      clrscr;

      write('2':4);

      for x := 3 to 20 do

      begin

      prima:=true;

      for y := 2 to x-1 do

      begin

      if (x mod y) = 0 then

      begin

      prima := false;

      break;

      end;

      end;

      if prima then write(x:4);

      end;

    Readln;

    end.