program count; var N,rez,a,b,c,d,e,f,l : integer; f,f1 : text; begin assign (f, 'count.in'); reset (f); read (f,a); read (f,b); read (f,c); read (f,d); read (f,e); read (f,f); if c > a or c>b then l:=1; close (f); assign (f1,'count.out'); rewrite (f1); write (f1,rez); close (f1); end.