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

var

a, b, c, z: integer;

begin

cls;write ( \'Введите первое число: \' );readln ( A );write ( \'Введите второе число: \' );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.