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.