Program ex401; var u, v : ar

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或下标越界。 )