Даны два файла с одинаковым количеством компонентов, компонентами которых являются натуральные числа. Создать новый файл, в который будут записываться числа по следующему правилу. Берется первое число из первого файла и первое из второго. Если одно из них делится нацело на другое, то их частное записывается в новый файл. Затем берется второе число из первого и второе из второго и т. д. Входные файлы «1.txt» и «2.txt» содержат натуральные числа — Pascal(Паскаль)

Program PascalGuru;

var
  g, f, last: text;
  i, j: integer;

begin
  assign(f, '1.txt');
  reset(f);
  assign(g, '2.txt');
  reset(g);
  assign(last, '3.txt');
  rewrite(last);
  i := 0;
  while not eof(f) do
  begin
    readln(f, i);
    readln(g, j);

    if i mod j = 0 then
      writeln(last, i / j:0:0)
    else if j mod i = 0 then
      writeln(last, j / i:0:0)
  end;

  close(f);
  close(g);
  close(last);
  writeln('Reshennye dannye uspeshno zapisany v fail "3.txt"');
  readln;

end.