uses crt;
var f,g:text;
i,a,k,m:integer;
begin
clrscr;
randomize;
assign(f,'failF.txt');
rewrite(f);
assign(g,'failG.txt');
rewrite(g);
for i:=1 to 100 do
begin
a:=random(200);
write(f,' ',a);
end;
close(f);
writeln('Введите 2 целых числа для проверки кратности:');
readln(k,m);
reset(f);
while not eof(f) do
begin
read(f,a);
if(a mod k<>0)and(a mod m<>0)then write(g,' ',a);
end;
write('Файл failF создан и переписан в файл failG:');
readln
end.