Если на Pascal, то вот:
Program z1;
var x,y,z:integer;
begin
Writeln('Введите числа: ');
Write('x = '); read(x);
Write('y = '); read(y);
Write('z = '); read(z);
if ((x*y) mod z=0) then Writeln('Произведение x и y кратно z')
else Writeln('Произведение x и y не кратно z');
end.