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