Menampilkan bilangan kelipatan 3 dari angka 1 s/d 20

Untuk menampilkan bilangan kelipatan 3 dari angka 1 sampai dengan angka 20, algoritmanya adalah :

Bilangan kelipatan 3 : 3,6,9,12,15,18,21,24 ... dst

Nilai diatas jika dimod3 hasilnya 0

3mod3 = 0       6mod3 = 0       9mod3 = 0

12mod3 = 0     15mod3 = 0

Untuk nilai i = 1 sampai 20 lakukan

Jika nilai i mod 3 = 0 maka

            cetak i

Untuk program dalam bahasa pascal adalah:

uses crt;

var i : integer;

begin

     clrscr;

     for i : = 1 to 20 do

     begin

     if i mod 3 = 0 then

          write(i:5);

     end;

     readln;

end.

Hasilnya :