Question

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

Answer 1

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.