Определить, делителем каких чисел a,b,c является число К

var   a, b, c, k : integer; begin   read (a, b, c, k);   if (a mod k <> 0) and (b mod k <> 0) and (c mod k <> 0) then writeln ('Никаких')   else begin     if a mod k = 0 then writeln ('Числа a');     if b mod k = 0 then writeln ('Числа b');     if c mod k = 0 then writeln ('Числа c');   end; end.