4. UNTUK MENAMPILKAN BILANGAN KELIPATAN 3 DARI ANGKA 1 SAMPAI DENGAN ANGKA 20

Algoritmanya:
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.