Делителем каких чисел a,d,c являетса число k

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.