Pascal дано три целых числа. вывести на экран те, для которых число а будет делителем.

Var  a, b, c, d: integer;
begin
  read(a, b, c, d);
  if(b mod a = 0) then writeln(b);
  if(c mod a = 0) then writeln(c);
  if(d mod a = 0) then writeln(d);
end.