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.
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.