Array yang menampilkan kelipatan 3

mo bagi2 algoritma aja om, klom di pascal algoritmanya seperti ini :

CODE: SELECT ALL

program lipat3;
type arr=array[1..25] of byte;
var  i:byte;
     a:arr;
begin
  for i:=1 to 25 do
  begin
    a[i]:=i;
    if i mod 3 = 0 then
    begin
      writeln(a[i]);
    end;
  end;
  readln;
end.