program zad3;
type tab=array[1..100] of integer;
var tab1:tab;
f:text;
i,n: integer;
s,l:string;


begin
n:=0;
randomize;
assign(f,'document.txt');
rewrite(f);
for i:=1 to 100 do
tab1[i]:=random(71);
for i:=1 to 100 do
begin
str(tab1[i],s);
writeln(f,tab1[i]);
end;
writeln('liczby zostały dodane do pliku');
readln;
for i:=1 to 100 do
begin
if (tab1[i] mod 2) =0
then n:=n+1;
end;
write(f,'liczb parzystych w tym pliku jest ');
write(f,n);
write(f,l);
close(f);

readln;
end.