Ответ
5
(1 оценка)
1
Ответ:
var a: integer;
begin
read(a);
write ((a>99)and(a<1000)and(a mod 3 = 0))
end.