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

Question

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

---

Answer 1

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.