program Main;vara: integer;beginwrite('Введите число: ');readln(a);
if (a mod 3 <> 0) and (a mod 10 = 0) thenwriteln('true')elsewriteln('false');end.
program Main;
var
a: integer;
begin
write('Введите число: ');
readln(a);
if (a mod 3 <> 0) and (a mod 10 = 0) then
writeln('true')
else
writeln('false');
end.