Составьте программу записывающую в файл одномерный массив случайных
чисел, а затем считывающую его с диска и выполняющую запись четных элементов
в другой файл (на Паскале)

program untitled;var t,t2:text;    i,a:integer;    m:array [1..50] of integer;beginrandomize;assign(t,'output.txt');assign(t2,'output2.txt');rewrite(t); for i:=1 to 50 do begin m[i]:=random(50); writeln(t,m[i]);end; reset(t);rewrite(t2);for i:=1 to 50 do begin readln(t,a); if a mod 2=0 then  writeln(t2,a); end; close(t);close(t2);end.