teza2fis.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program teza2;
var f:text;
v:array[1..100] of integer;
    n,p,r,i:integer;
begin
assign(f,'in.txt');
reset(f);
while not eoln(f) do
                  begin
                  n:=n+1;
                  read(f,v[n]);
                  end;
for i:=1 to n  do
   if v[i] mod 2 =0 then inc(p)
                 else inc(r);
writeln(p,'nr pare');
write(r,'nr impare');
readln;
end.