Паскаль!!11! Помогите с задачей.

Держи

Program N;
var
n,i:integer;
begin
writeln('Введите число N');
readln(n);
for i:=1 to n do if (n mod i=0)and(i mod 3=0) then write(i:3);
end.

P.S. Лучший ответ поставить не забудь пожалуйста

Ещё вариант с комментариями:
var N, D : Word;
begin
Write('Введите N = '); ReadLn(N);
D := 0;
repeat
D := D + 3; { Следующее кратное трём }
if N mod D = 0 then Write(D); { Если число N длится на D без остатка, то выводим его }
until D >= N; { Выход из цикла, если делитель больше либо равен N }
WriteLn; { В конце строки делаем возврат каретки }
end.

Я может чуть-чуть не в себе, но всё-же.. . Если решать "влоб", то хотя-бы так
Зачем перебирать ВСЕ делители, особенно начиная с 1??!,ввод числа не сделал - лениво =) да и так понятно.. .

Если C++
#include <iostream>
using namespace std;

void main()
{
int i=12;
for(int j=3;j<=i;j+=3)
if (!(i % j)) cout << j << endl;
}

Если паскаль, то, что-то вроде:
var
i,j:integer;
begin
i:=12;
for j:=3 to i do
begin
if (i mod j=0) then write(j:3);
inc(j,2);
end;
end.

inc(j,2) - инкремент на 2, а for добавит ещё один для шага 3

Упс. . не все версии компилятора паскаль разрешают менять значение переменной в цикле, если это переменная используется как "счетчик" ( inc(j,2) работает не везде) ,
потому
var i,j:integer;
begin
i:=12;
j:=3;
while(j<=i) do
begin
if (i mod j=0) then WriteLn(j:3);
inc(j,3);
end;
end.

Откуда задание? Школа же еще не началась