Написать программу, которая определяет, делителем каких чисел (среди трех введенных) является число Z. (Язык программирования - Паскаль)

Var
  A, B, C, Del : integer;
begin
  write(Введите число A: );
  readln(A);
  write(Введите число B: );
  readln(B);
  write(Введите число C: );
  readln(C);
  write(Введите делитель: );
  readln(Del);
  write(Число , Del, является делителем таких чисел: );
  if A mod Del = 0 then write(A, );
  if B mod Del = 0 then write(B, );
  if C mod Del = 0 then write(C, );
end.