Много баллов!!
Пришлите файл, выполненный в паскале

var a,min3: integer;begin  min3:=30000;  repeat     readln(a);    if (a mod 3 =0) and (a<>0) then min3:=a;   until a = 0;  writeln(min3);end.