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

program xymodz;

var x, y, z:integer;

begin

writeln ('Введите 3 числа');

read (x, y, z);

if (x * y) mod z = 0

then

writeln ('Произведение ', x,' * ', y, ' = ', x * y, ' кратно числу ', z)

else

writeln ('Произведение ', x,' * ', y, ' = ', x * y, ' не кратно числу ', z)

end.