Составить программу, печатающую значение true, если указанное высказывание является...

Question

Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае, когда целое a не кратно трем и оканчивается нулем.
ПАСКАЛЬ

Answer 1

Var a: integer;
begin
read(a);
if (a mod 3<>0) and (a mod 10=0) then writeln('true') else writeln('false')
end.