program program1;

Var

  a,b,c,d,e:integer;

  begin

    a:=79 ; b:=34; c:=57;d:=0 ; e:=-1;

    if (a<c) or (b>c) then d:=d+e

    else if (d+10<e) then d:=e+10

    else d:=e-a;

    writeln(d);

  end.

输出：_____________________。