Порядок действий и таблица на картинке.
uses GraphABC;
var r:integer;
begin
readln (r);
while r<>0 do
begin
Circle(random(631),random(471),r);
readln (r)
end
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln((ReadInteger.ToString.Where(t->t='9')).Count=1)
end.
<u>Примеры</u>
35423
False
13290192
False
132903
True