Даны три числа x y z. Является ли произведение x*y числом кратным z

Если на 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.