Program ex401;
var
u,v:array[0..3] of integer;
i,x,y:integer;
begin
x:=10; y:=10;
for i:=0 to 3 do
read(u[i]);
v[0]:=(u[0]+u[1]+u[2]+u[3]) div 7;
v[1]:=u[0] div ((u[1]-u[2]) div u[3]);
v[2]:=u[0]*u[1] div u[2]*u[3];
v[3]:=v[0]*v[1];
x:=(v[0]+v[1]+2)-u[(v[3]+3) mod 4];
if (x>10) then
y:=y+(v[2]*100-v[3]) div (u[u[0] mod 3]*5)
else
y:=y+20+(v[2]*100-v[3]) div (u[v[0] mod 3]*5);
writeln (x,',',y);
end. {*注：本例中，给定的输入数据可以避免分母为0 或下标越界。 )
输入： 9 3 9 4

输出：-13,57