Кто шарит в паскале , помогите

Question

Кто шарит в паскале , помогите

---

Answer 1

7. Цикл добавляющий к S цифру 9. После 9 раз в паскале или питоне выведется S.
8. 
var a, min: integer;
beginmin:=30000;
readln(a);
while a<>0 do
begin
if (min>a) and (a<>0) and (a mod 3 = 0) then min:=a;
readln(a);
end;
writeln(min);
end.