var
  w, h: Integer;

begin
  GetClientDimensions(w, h);
  WriteLn('WEBCLIENT: 0, 0, ' + IntToStr(W) + ', ' + IntToStr(H));
end.