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

var

a, b, c, z: integer;

begin

cls;
write ( Введите первое число: );
readln ( A );
write ( Введите 2-ое число: );
readln ( B );
write ( Введите третье число: );
readln ( C );
write ( Введите делитель: );
readln ( Z );
write ( Число , Z, является делителем последующих чисел:  );
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.