В последнем действии 0 считается как чётное??? Если да, то вот:
35735375537733
Если нет, то вот:
05705375537703
Program untitled;
var t,t2:text;
i,a:integer;
m:array [1..50] of integer;
begin
randomize;
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);
<span>end.</span>