Вывести правда если каждое из чисел кратно трем- Pascal(Паскаль)

 var
 x, y, z: integer;
 begin
 readln (x);
  readln (y);
   readln (z);
 if (x mod 3 = 0) and (y mod 3 = 0)
 and (z mod 3 = 0)
 then writeln (true)
 else writeln (false);
 end.