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

Если на Pascal, то вот:Program z1;var x,y,z:integer;beginWriteln('Введите числа: ');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.