program count; var N,rez,a,b : integer; f,f1 : text; A : array [ .. ] of integer; B : array [ .. ] of integer; C : array [ .. ] of integer; D : array [ .. ] of integer; begin assign (f, 'count.in'); reset (f); read (f,N); close (f); assign (f1,'count.out'); rewrite (f1); write (f1,rez); close (f1); end.