в двух файлах записано по 10 чисел, создать третий файл, в котором чередуются числа первых двух файла. Написать в программе PascalABC

Var

f1, f2 : array [1 ... 10] of integer;

i : integer;

input, output : text;

begin

assign (input,'input1. txt') ;

reset (input) ;

for i: = 1 to 10 do

read (input, f1[i]) ;

close (input) ;

assign (input,'input2. txt') ;

reset (input) ;

for i: = 1 to 10 do

read (input, f2[i]) ;

close (input) ;

assign (output,'output. txt') ;

rewrite (output) ;

for i: = 1 to 10 do

begin

writeln (output, f1[i]) ;

writeln (output, f2[i]) ;

end;

close (output) ;

end.

Var

input1, input2, output : Text;

i, number : integer;

begin

AssignFile (input1, 'input1. txt') ;

AssignFile (input2, 'input2. txt') ;

AssignFile (output, 'output. txt') ;

Reset (input1) ;

Reset (input2) ;

Rewrite (output) ;

for i : = 1 to 10 do

begin

read (input1, number) ;

write (output, number, ' ') ;

read (input2, number) ;

write (output, number, ' ') ;

end;

CloseFile (input1) ;

CloseFile (input2) ;

CloseFile (output) ;

writeln ('Готово') ;

end.