Tugas Algoritma "Menampilkan Bilangan Kelipatan 3 dari angka 1 s/d 20"

4. Menampilkan bilangan kelipatan 3 dari angka 1 s/d 20
Jawab:
uses crt;
var I,A: integer;
begin
clrscr;
A:=3;
for I:=1 to 6 do
begin
writeln(A);
A:=A+3
end;
Readln;
end.