Program www;
uses crt;
var f: file of integer;  
       g:file of integer;
  x:char;
BEGIN
  writeln('введи значение числа m');
   readln(m);
  writeln('введи значение числа n');
   readln(n);
  assign(f,'путь с физическому файлу');
   reset(f);
   rewrite(g);
    while not(EOF(f)) do begin
     read(f,x);
     if (x mod m =0)and(x mod n<>0) then
      read(g,n);
    end;
  close(f);
  close(g);
end.