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.