Даны три числа 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.