Pascal Kelipatan 3 dari angka 1 s/d 20

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.