program Project2;

const pi = 3.1415926535897;
      e = 0.000001;
var m, n, t, c:integer;
    p1, p2, p3, p4, a1, a2, a3, a4, r:real;
    f, g:text;

function all:integer;
begin
  Result:=m*n;
end;

function edge:integer;
begin
    Result:=(m+n-2)*2-4;
    if (Result<0) then Result:=0;
end;

function line:integer;
begin
    if (m=1) then
      Result:=m*(n-2)
    else if (n=1) then Result:=(m-2)*n
    else Result:=0;
    if Result<0 then Result:=0;
end;

function hline:integer;
begin
    if ((m=1) or (n=1)) and (m+n<>2) then Result:=m*n-line
    else Result:=0;
end;

function ugol:integer;
begin
    if (m>1) and (n>1) then Result:=4
    else Result:=0;
end;

function one:integer;
begin
    if (m=1) and (n=1) then Result:=1
    else Result:=0;
end;

function inner:integer;
begin
    Result:=(m*n)-edge-line-ugol-one;
    if Result<0 then Result:=0;
end;

function in_line:integer;
begin
    Result:=(m-1)*n+(n-1)*m;
    if Result<0 then Result:=0;
end;

function e_line:integer;
begin
    Result:=(n+m)*2-4;
    if Result<0 then Result:=0;
end;

function sqr(a:extended):extended;
begin
    Result:=a*a;
end;

function inter:integer;
begin
    if (m>1) and (n>1) then
      Result:=(m-1)*(n-1)
    else
      Result:=0;
end;

begin
    assign(f, 'input.txt');
    reset(f);
    readln(f, m, n, t, c);
    close(f);
    r:=c/2.0;
    p1:=(sqr(t-2*r)/sqr(t)*inner + (t-r)*(t-2*r)/sqr(t)*edge + sqr(t-r)/sqr(t)*ugol + t*(t-r)/sqr(t)*hline + (t-2*r)/t*line + 1*one) / all * 100;
    p4:=pi*sqr(r-e)*inter/(all*t*t) * 100;
    p2:=((t-c)*c*in_line + r*c*e_line) / (all*t*t) * 100;
    p3:=100-p1-p2-p4;
    assign(g, 'output.txt');
    rewrite(g);
    write(g, p1:0:4, ' ', p2:0:4, ' ', p3:0:4, ' ', p4:0:4);
    close(g);
end.
