воскресенье, 9 октября 2011 г.

10 october

program z8;
uses crt;
var m, n: integer;
begin
writeln ('m='); readln (m);
writeln ('n='); readln (n);
if m mod n=0 then writeln ('m div n=',m div n);
readkey;
end.