KYTHIQG PASCAL

Var     a,b,c,d,e,f,g,diem: real;
Begin
       Assign(input, 'KYTHIQG.inp');   Reset(input);
       Assign(output, 'KYTHIQG.out');   Rewrite(output);
       Readln(a,b,c,d,e,f,g);
       diem:= (((a+b+c+d+e)/4+g)/2)+f;
       If (diem>=5.0) and (a>1) and (b>1) and (c>1) and (d>1) then 
        write('1') 
    else write('0');
       Close(input);   Close(output);
End.