Написать программу, которая определяет, делителем каких чисел (среди трех введенных) является число 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.